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APRESENTAÇÃO 


Quando a primeira maquina Sinclair foi lan 
çada na metade de 1982, uma barreira foi quebrada 
na área da Informática. Pela primeira vez um com¬ 
putador "raoderadamente" poderoso era vendido na In¬ 
glaterra e nos Estados Unidos por menos de 100 dóla 
r es . 

Devido a esta condição básica — equipamen¬ 
to extremamente barato — os computadores atingiram 
a maioria da populaçao ,incluindo muitos estudantes. 

So nos Estados Unidos já foram comerciali¬ 
zadas mais de 1 milhão dessas máquinas e um numero 
aproximadamente igual já foi vendido na Europa. 

No Brasil nao temos dados precisos sobre 
a produção, porem sabemos que a Microdigital traba¬ 
lha a pleno vapor sem ser atingida pela crise, de¬ 
senvolvendo, entre outros, os parentes bem.próximos 
da linha Sinclair, ou seja, os micros TK-82,83,85^ 

Nesta pequena coleção de programas a refe¬ 
rencia básica será ao TK-85. 

A tecnologia original foi desenvolvida na 
Inglaterra pelo extraordinário Clive Sinclair, que 
em empreendimentos anteriores foi ã bancarrota, mas 
no projeto do micro obteve um sucesso extraordiná¬ 


rio. 



Como consequência do sucesso de vendas no 
Brasil do TK-85, apesar de algumas de suas limita¬ 
ções, como por exemplo a falta de uma impressora e 
de alguns comandos do BASIC como READ, DATA,RESTORE 
etc., surgiu um grande numero de usuários, 

Ê entretanto um grave erro, como diz Char 
les Ryan no seu artigo "0 Volkswagen dos pequenos 
sistemas", que saiu no primeiro numero da revista 
Bits (outubro de 1983), atribuir o sucesso do TK-85 
e similares apenas ao preço conveniente do produto. 

Um fator importante que deve ser pesado no 
fenômeno Sinclair ê que ele foi o primeiro micro na 
sua faixa de preço que estava dirigido diretamente 
ao usuário nao especializado, o qual poderia ter a 
maquina no seu lar acoplada a um aparelho de TV co¬ 
mum e tendo condiçoes de opera— la a qualquer ins¬ 
tante. 

A seguir surgiu a possibilidade da expan¬ 
são da memória RAM, a factibilidade de criar e gra¬ 
var em fita arquivos de dados separadamente do pro¬ 
grama e esperamos a partir de 1984 a possibilidade 
de conectar uma impressora barata ao TK-85, 

0 Tk-85 tem uma grande utilidade no lazer, 
aceitando programas com jogos de emoção que exigem 
reflexos rápidos, habilidade manual e obviamente 
raciocínio. Esta êa função do livro TK-Divertindo . 

No TK-85 também podemos desenvolver progra 
mas didáticos que servem inclusive de auto-instru- 
ção. Aliás, esta ê a finalidade básica do TK-Lern - 
br ando . 

0 TK-85 não deixa entretanto de ser útil 
no dia-a-dia dos cálculos caseiros, de escritório 
ou da escola. Foi com essa intenção que escrevemos 


o TK-Calculando. 


Nesta coleção de programas a preocupação 

^ p 

foi realmente nao termos muitas instruções em cada 
programa, economizando dessa forma memória e tempo 
de digitação. 

Nao achamos também que e uma simples cole¬ 
tânea de "joguinhos" ou de aplicações um pouco mais 
sérias, visto que em quase todos os programas demos 
indicações de eventuais é úteis alterações e em al¬ 
guns casos fazemos comentários ate exaustivos,porem 
em todos indicamos a finalidade do programa e suge¬ 
rimos até uma aplicaçao numérica onde ela convier. 

Acreditamos que a coleção destes tres li¬ 
vros representa uma forma bem barata de adquirir 
software, embora nao seja esta a utilidade mais im¬ 
portante. 

Pode ter certeza o(a) caro(a) leitor(a)que 
a digitaçao etapa por etapa, isto e,linha por linha 
de um programa, acaba mostrando a voce fundamentais 
truques de programaçao, e existe uma absorçao de co 
nheciraento que se nao é por osmose pode ser por "vi 
diose". 

Aliãs,ninguém consegue ser um grande joga¬ 
dor se nao treinar muito e copiar um pouco o estilo 
daqueles que jã jogam bem. 

É muito difícil ser um grande escritor sem 
ter sido um paciente leitor de muitos livros. 

Nao dá portanto para ser um bom programa¬ 
dor sem antes ter visto muitos programas funciona¬ 
rem e bem. 

A coleção completa tem 100 programas e por 
tanto o material é bastante farto e diversificado. 

Claro que o passo seguinte seria ler um li 
vro do tipo Linguagem BASIC ou BASIC Sem Segredos, 



editados também pela Livraria Nobel, para comple- 
mentaçao ou eliminação de qualquer dúvida sobre os 
diversos comandos do BASIC» 

De uma coisa todos nos da família Mirshawka 
estamos convictos: os micros da Microdigital da se¬ 
rie TK e tecnologia Nacional são equipamentos sé¬ 
rios e nao brinquedos como pretendera inculcar al¬ 
guns menos informados na cabeça dos "computamania- 

A A ir 
COS . 

Todos muitos em breve serão "computaraanía- 
cos" e o TK-85 pode ser definido como o "volkscom- 
püter" , ou seja, o micro do povo, assim como o Volks 
vagen ou talvez o Fiat, aqui no Brasil, sejam os au 
tomõveis do povo. 

A tarefa de escrever programas para um mi¬ 
cro nao é muito difícil. Preste portanto muita aten 
ção nas sugestões, nas modificações e nos diversos 
truques indicados nos 100 programas e em breve voce 
estará também programando os seus jogos ou então 
resolvendo os seus problemas de Matemática, Física, 
Química e quem sabe até de Finanças e de Engenha¬ 
ria. 

Seja bem-vindo ao mundo do TK-85 e muitas 
felicidades. 

Os autores, ou seja, 
a família Mirshawka, 
unida entre outras 
coisas pelo TK. 

(1) TK-82, TK-83 e TK-85 sã 0 marcas registradas da Microdigital EletrS- 
nica Ltda. 
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1-0 TECLADO DO SEU TK-85 



A primeira vista o teclado do 'TK-85 pode 
atê parecer complicado. 

É nosso mister fazer com que você se trans 
forme inicialmente em um exímio "pianista” neste te 
ciado 1 conhecendo "as regras",as suas teclas e o que 
e fundamental,a função de cada uma. 

Olhe bem para as teclas. 

Olhou? 

Bera, verificou que temos quatro linhas de 

teclas . 

Na linha de topo estão os numeros e nas te 
cias restantes estão as letras do alfabeto parecen¬ 
do muito com o que ocorre em uma máquina de escre¬ 
ver comum. 

Entretanto algumas das teclas podem ter- a 
sua função tomada erradamente ou seja podem ser tro 
cadas. 

Seja portanto cuidadoso. 

A letra "O" e o número zero "0" não devem 
ser confundidos. 

I esta a razao pela qual o seu zero apare¬ 
cerá cortado "0". 

Da mesma forma e terrível a confusão entre 
a letra "X" e o número 1. 


Isto trará problemas e confusões aparente¬ 
mente não identificáveis nos seus programas. 

Boa parte do tempo as palavras que você irá 
precisar serão obtidas num sensacional "zas-tras" 
pressionando-se apenas uma tecla. 

Isto fará com que voce economize muito tem 
po de digitação, porem pode causar problemas tam¬ 
bém... 

Caso você esqueça isto e bata letra por le 
tra as palavras que aparecera nas teclas, palavras 
estas que correspondem ã comandos,o seu TK-85, pode 
râ e ficará confuso a tal ponto que se negara a a- 
ceitar a linha de instrução assim teclada. 

Em alguns programas que aparecem no TK-Di- 
vertindo colocamos todas as palavras chave que se 
obtém pressionando apenas uma tecla dentro de um' re 
tângulo para que você esc 1 arecido(a) leitor(a) nao 
esqueça disto. 

Um exemplo é o comando [pRINT| . 

Ê muito fácil cometer erros. 

Quem nao os comete... 

Bem os erhros aqui sao de digitaçao e e re¬ 
lativamente fácil apagá-los ou seja "borracha-los" 
usando duas teclas. 

A 1? tecla ê (SHIFT [ e ela sera ú,til em 
muitas coisas. 

Ela está no canto da esquerda da última li 


nha. 

Esta tecla será muito usada e você deve 
pressioná-la com os dedos da nao esquerda. 

Pressione [SHIFT[ e mantenha-a assim abai¬ 
xada enquanto voce aciona í RUBOUT ) a qual está na te 
cia que contêm o 0 (zero). 








4 


Com esta operaçao voce conseguira limpar 
ou seja apagar as letras ou palavras que estão an¬ 
tes do cutsqt. 

0 CURSOR 

0 cursor e muito importante porque ele nos 
informa em que posição da tela nos encontramos no 
momento e o que o micro irã imprimir quando voce 
pressionar uma tecla. 

Existem quatro letras diferentes que podem 
aparecer dentro de uma caseia ou quadradinho preto. 

Dessa forma teremos: 


Q Para numeros de linha e palavras chave que aparecem 
acima da tecla 

O -*■ Para letras e números 

Q Para funções (palavras chave que aparecem abaixo da 
tecla) 

m Para gráficos (letras brancas sobre fundo preto e 
alguns caracteres gráficos especiais que aparecera 
coloridos com azul). 

[~ NEWLINE 1 Sabemos que NEWLINE quer dizer linha no 
va porém vamos escrever tudo junto para 
dar enfase que é uma tecla única para 
entrar com uma instrução. 

Esta é uma tecla muito importante. 

Quando você pressiona esta tecla ê mais ou 

menos a mesma coisa que dizer-lhe "faça aquilo que 

lhe mandei". 

Aqui vale o que jã disse ha muito tempo a 
Lady Lovelace que pode ser rotulada como a primeira 
programadora (Charles Babbage que o diga...):"o com 
putador pode fazer qualquer coisa que saibamos ex¬ 
plicar-lhe como fazer". 
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Note bem, até apertar a tecla NEWLINE você 
pode ser volúvel e mudar de idéia que o seu TK-85 
não irã se importar com o que voce esta lhe pergun 
t ando. 

Depois que você apertou o NEWLINE bau,bau, 
bau, Zezefredo ou então adeus Ronilda... 



Quando voce jã embutiu todo o seu programa 
dentro do TK-85 voce deve informar-lhe para que exe 
cute o mesmo. 

Para fazer isto acione a tecla 1 RUN ) e en¬ 
tão aperte a tecla [ NEWLINE 1 para confirmar. 



Esta tecla é muito útil quando queremos pa 
rar o programa meio na "força bruta"... 


BREAK 



[ NEW 1 

Voce encontra esta palavra-chave acima da 

letra A. 


[NEW] e usada para limpar ou seja apagar 


qualquer programa remanescente 

e estar 

apto para 

um 

novo 

programa. 





Se .você apertar iNEWl 

então Q 

NEWLINE 1 

0 s 

seus 

programas anteriores irao 

para o 

espaço sem 

es 
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tarem em orbita ou seja jamais voltarao.. 


0 comando 1 LIST 1 esta na tecla j K | . 

Aperte o [LIST | e então o [ NEWLINEJ e o 
TK-85 imprimira o seu programa na tela começando na 
lf linha. 

Ê frequente, não ser suficiente o espaço 
todo de uma tela para que contenha um programa com¬ 
pleto. 

Para ver a parte do programa que lhe inte¬ 
ressar , pressione [LIST j e então tecle o numero da 
linha,no qual está interessado antes de apertar o 
I NEWLINE | . 

0 seu TK-85 imprimirá o programa começando 
na linha cujo numero foi indicado no [LI STJ . 


0 comando i EDIT 1 (de edição) está na tecla 
1 1 | e caso voce queira editar uma linha-,por exemplo 
a linha 50,deve proceder da seguinte forma: acionar 
|LIST 1 50 e só aí pressionar o [ NEWLINE ] 

Depois destas ações pressione 

[SHIFT|[EDIT 1 e uma cópia da linha 50 aparecerá 
na parte de baixo. 

Você pode agora usar [SHIFT | e as teclas [5 ] 
e 1*8*] para deslocar o cursor ao longo da linha. 

Você estimado(a) leitor(a) pode acrescen¬ 
tar novos caracteres ou apagar aqueles que sao in¬ 
desejáveis. 
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Você pode inclusive mudar o numero da sua 


linha. 


Quando a linha estiver correta aperte 
[ NEWLINE \ e então a nova versão da linha será colo¬ 
cada no programa no lugar da velha. 


0 SISTEMA ”COLORIDO" DO SEU TK-85 


No teclado do seu TK-85 voce verá quatro 
cores: preta, branca, amarela e a azul. 

Ê bom se acostumar a estas cores para es¬ 
crever os programas e para que seja mais facil en¬ 
tendê-los (as vezes). 


Está escrito em branco e aparece em cima 
da letra (§] . 

Basta apertar esta tecla no modo K e vo¬ 
cê terá o PLOT. 

A letra "V” aparece em branco.^ 

Basta apertar esta tecla e você terá V 
desde que voce esteja no modo L. 

STOFl—► Como se ve o STOP está escrito na cor 
amarela no seu TK-85. 

Tudo que estiver na cor amarela para po¬ 
der entrar dentro do TK-85 precisa antes 
ter apertada a tecla SHIFT (amarela 
por sinal! ! I) 



| siN | —*► A função seno está escrita em branco^ e 
~ ~~ aparece na parte de baixo da tecla (§). 

Para entrar com a mesma você deve apertar 
a tecla ÍSHIFT] e mante-la abaixada ate apertar a 
tecla NEWLINE ] que acima de si tem escrito em bran 
co \ FUNCTION | . 

Tire o seu "lindo dedinho" da tecla ÍSHIFT] 
e eis que surge a letra dentro do cursor Q . 
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Aperte agora a tecla [jj] 
Great surprise ! I I 


Aparecera na 


tela 



Esta portanto e a forma de entrar com to¬ 
das as funções que estão escritas em branco na par¬ 
te de baixo das teclas e exigem que o cursor esteja 
no modo FUNCTION Q . 

Podemos escrever em branco dentro de qua¬ 
drados negros e para tanto precisamos entrar no modo 
gráfico. 

* Para isto e necessário apertar a tecla 

|SHIFTl e mantê-la abaixada. 

Ache agora a tecla QT) e aperte a mesma 
(aperte mesmo e nao pense que o seu micro pode em 
algum momento ter cócegas...) 

0 cursor mudará agora para a forma Q . 

Voce tem agora uma escolha. 

Pode por ^exemplo manter pressionada a te¬ 
cla (SHIFTl enquanto voce aperta a tecla d) e terá 
como resultado a saída de@ 

Esta impressão vai ser muito util princi¬ 
palmente no volume I desta serie ou seja no TK-Di- 
ver tindo. 

Você tem uma outra possibilidade ou seja 
tirar o seu dedo da tecla | SHIFT} antes de apertar 
a tecla Qf) e então com essa sequência de "acionamen 
tos" obter-se-ã um B "branco" em um fundo preto ou 
seja o B no modo grãficoQ . 

Se voce mantiver pressionada a tecla fSHIFT] 
enquanto estiver em modo gráfico, com algumas te¬ 
clas como (3 , (2) , [D etc- (f) , (Õ) , O etc . obterá pe¬ 

quenos símbolos gráficos mostrados no canto infe¬ 
rior da direita e que estão representados em azul. 
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Aliás nao deixe de notar que o GRAPHICS tam 
bem está escrito em azul. 

Abaixo vao detalhados todos os símbolos 

gráficos disponíveis no seu TK-85. 

Símbolo Modo Teclas Símbolo Modo Teclas 

@ SPACE 

@ SHIFT-Q 

® SHIFT-W 

@ SHIFT-6 

@ SHIFT-R 

S SHIFT-8 

@ SHIFT-Y 

® SHIFT-3 

@ SHIFT-H 

S SHIFT-G 

® SHIFT-F 

Por favor observe que nesta lista cada sím 
bolo está "emoldurado", dentro de um quadrado tendo 
os seus quatro cantos evidentemente destacados o que 
as vezes nao ê muito claro na tela. 

Assim por exemplo quando voce teclar o pri 
meiro símbolo, evidentemente não tera um quadrado 
"branco" ou ainda uma caixa vazia mas sim um espaço 



em branco. 
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Bem» com a digitaçao dos programas você en 
tendera isto melhor!, 1 I 

Insistindo mais uma vez, não esqueça que 
voce obtem letras e numeros em video inverso atra¬ 
vés do modo Q . 

Todos os símbolos matemáticos sao também 
acessados de uma forma bem simples porém eles es¬ 
tão em amarelo que alias ê também a cor da tecla 

IshiftI. 


Portanto aperte 


e depois 


cia T) que significa "não igual a" ou "diferente de" 


> = 1 (tecla Y) que significa "maior ou igual a", 

1 ** í (tecla H) que significa "elevado a" 

J |~- | (tecla L) que significa "atribua a vari 
vel que esta ã esquerda o valor que est 


â direita" 


I (tecla N) que significa "menor que" etc. 


OBSERVAÇÃO IMPORTANTE - Ç.I. 

Neste livro a única forma de representar 
aspas esta localizada na tecla P. 

Em nenhum ãos nossos programas usaremos as 
aspas que estão localizadas na tecla Q. 

Comentaremos isto com mais detalhes no pro 
grama 4 - "MATERIAL PARA CONCRETO". 


JU\ I PH 
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- INDICAÇÃO RESUMIDA DAS PALAVRAS-CHAVE EM 
ORDEM ALFABÉTICA QUE PODEM SER ACESSADAS 
NO TK-85 COM UMA ÚNICA "TECLADA " DESDE 

QUE JA SE ESTEJA NO MODO CORRETO 


Palavra 

chave 

Modo 

Tecla 

Significado 

ABS 

B 

G 

valor absoluto 

ACS 

B 

S 

arco cosseno 

AND 

B ou Q 

SHIFT-2 

juntando condiçoes 

ASN 

B 

A 

arco seno 

AT 

B 

C 

especifica a posição de impres¬ 
são 

ATN 

B 

D 

arco tangente 

CHRÍ 

B 

U 

numero para caractere 

CLEAR 

B 

X 

limpa variáveis e tela 

CLS 

B 

V 

limpa tela 

CODE 

B 

I 

de caractere para numero' 

CONT 

B 

C 

continua a execução 

COPY 

B 

z 

copia a tela para a impressora 

COS 

B 

w 

cosseno 

DIM 

B 

D 

dimensões de conjuntos numéri¬ 
cos e alfabéticos 

EXP 

B 

X 

exponencial 

FAST 

B ou (9 

SHIFT-F 

modo rápido 

FOR 

B 

F 

ajusta para um laço 






12 


13 


Palavra 

chave 

Modo 

Tecla 

Significado 

GOSUB 

Q 

H 

desvia para subrotina 

GOTO 

S 

G 

desvio incondicional 

IF 

(3 

U 

testa condição 

INKEY$ 

Q 

B 

lê o teclado 

.INPUT 

a 

I 

aceita dados 

INT 

B 

R 

volta apenas a parte inteira 

LEN 

B 

K 

comprimento da variável alfanu 
merica (STRING) 

LET 

g 

L 

atribuindo valores 

LIST 

0 

K 

lista o programa 

LLIST 

a oui 

SHIFT-G 

lista na impressora 

LN 

B 

Z 

logaritmo natural 

LOAD 

a 

J 

carrega o programa do cassete 

LPRINT 

g a 

SHIFT-S 

imprime via impressora 

NEW 

g 

A 

limpa a memória 

NEXT 

g 

N 

indica fim do laço 

NOT 

a 

N 

negaçao 

OR 

a ou a 

SHIFT-W 

duas ou mais condiçoes 

PAUSE 

g 

M 

dá uma pausa no TK-85 

PEEK 

B 

0 

mostra a memória em um ponto 
especifico 

PI 

B 

M 

valor de TT 

PLOT 

a 

Q 

coloca um pixel na tela 

POKE 

g 

0 

coloca dados em uma posição es 
pecifica da memória 

PRINT 

g 

p 

imprime algo 


Palavra 

chave 

Modo Tecla 

Significado 

RAND 

g 

T 

indica a posição inicial do RND 

REM 

g 

E 

observações ou comentários 

RETURN 

g 

Y 

volta logo após a chamada do 
GOSUB 

RND 

B 

T 

função aleatória 

RUN 

g 

R 

executa um programa 

SAVE 

g 

S 

guarda o programa em fita 

SCROLL 

g 

B 

gira uma linha para cima 

SGN 

B 

F 

sinal de um número 

SIN 

B 

Q 

seno 

SLOW 

g 

ou B SHIFT-D 

modo lento 

SQR 

B 

H 

raiz quadrada 

STEP 

g 

ou B SHIFT-E 

incremento do par FOR/NEXT 

STOP 

g 

ou B SHIFT-A 

para a execução 

STR$ 

B 

Y 

valores numéricos para alfanu¬ 
méricos (STRINGs) 

TAB 

B 

P 

tabulaçao 

TAN 

B 

E 

tangente 

THEN 

g 

ou B SHIFT-3 

resultante de uma condição ver 
dadeira 

TO 

g 

ou B SHIFT-4 

especifica o limite 

UNP1 ^ > i 

g 

W 

apaga um pixel 

USR 

a 

L 

codigo de maquina dentro do 

BASIC 

VAL 

B 

J 

converte caracteres numéricos 
para os seus valores numéricos 
atuais 
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PRIMEIROS SOCORROS 
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Você necessita entrar 
do modo grafico? 

fVÃ PARA 6l _ 

Voce nao pode editar 
(EDIT) uma linha? 


Você tem mais algum 
problema? 

[Vi PARA~8l 


0 Pressione a tecla | NEWLINE \ 

Veja se voce não encontra o seu cursor com o 
aspecto Q !’.!?? Caso isto aconteça é o seu TK-85 
que está lhe indicando onde provavelmente esta o 
erro nesta linha. 

Veja se você não esquec eu um f + l ou Lü-J ou [_J_Jetc. 


7 T) Tecle o |SHIFT] e-mantenha abaixada enquan- 

—- EDIT 

to voce aperta 

Se uma linha de programa substituir o "lixo que 
estava escrito aperte [ NEWLINE | para continuar. 


f~ 3 ~| Tecle SHIFT e mantenha abaixada a mesma. 


Utilize as teclas 


^*1 para mover 


o cursor exatamente a direita do erro. 
Mantenha abaixada a tecla [SHIFT] e aperte 
RUBOUtI para apagar.Solte o [SHIFT] e bata os 
símbolos corretos. Aperte f NEWLINE ] . 
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0 Voce precisa editar (EDIT) a linha. 


Ache o 


na lista do programa. 


Mova-o ate a linha que deve ser editada man 
tendo pressionada a tecla |SHIFT| e apertando 


Com [SHIFt] e -^EDIT V oce obtêm a copia da li 
nha na parte de baixo da tela. íVÃ PARA T] 


[5 ] Nao se preocupe com o que esta sumindo da te 

la. Tudo esta indo para a memória do seu TK-85. 
Nenhum dos programas que ê dado neste livro ê su¬ 
ficientemente grande para lotar a memória do seu 
TK-85 . 

Continue tranquilo, teclando o seu programa, pois 
você nao perdeu nada. 


0 Tecle fSHIFTl e GRAPHICS para fazer q ^ 


sor sair do modo letra 


para o modo gráfico 


Você pode precisar que a tecla |SHIFT] fique abai¬ 
xada para que possa imprimir alguns caracteres in 
dicados era amarelo no seu TK-85. 

Pare de apertar a tecla fSHIFT] e a per t e f NEWLINE~~| 
para voltar ao modo letra Q . 


,-, _ 

1 7 1 Aperte | y / | e j HEWLInFI . 


Mantenha a tecla [SHIFT| abaixada enquanto 
aperta ^EDIT [VÃ PARA 3 
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[~8~ Tem ou tera muitos a partir de agora. Só 
mais um pouco de paciência e você sentirá 
programas que realmente funcionam, pois foram 
todos testados. 

Entretanto como sugestão acompanhe com muita 
atençao o que esta escrito a seguir. 


r 


Direção e sentido a seguir caso voce 
esteja entrando com um programa 


Você já leu alguma coisa sobre "isto e o 
que o TK-85 pode ou não fazer" e agora você vai ler 
o que resta para "como fazer para conseguir que o 
TK-85 execute-o". 

Ê óbvio que estamos nos referindo a um pro 
grama e os resultados podem ser totalmente diversos 
daqueles que se estava esperando. 


Quais podem ser as razoes? 


Resposta 


0 programa trabalha bem e inesperadamente algo 
ocorre de errado. 

Esse erro, deve ser provavelmente devido a um 
trecho do programa que nao ê usado toda.s as ve 
zes. Este pode ser um dos possíveis problemas 
que serão abordados nos itens de I a XIV mais 
especificamente IV, V, VII e VIII. 


0 programa ê executado,porem os resultados sao 
"levemente" diferentes ou atê mesmo errados. 
Isto, provavelmente ê devido a ura pequeno erro 
comumente cometido ao informar ao TK-85 onde 
ele deve imprimir alguma coisa na tela, 

Olhe com atenção os "possíveis galhos"III,VI e 
mesmo I. 
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4 - POSSÍVEIS "MANCADAS SUAS" POIS 0 TK-85 NÃO 
MANCA j VISTO QUE NÃO TEM PERNAS .., 


Se você seguir as instruções que estão nos 
diversos programas da forma que estão escritos ja¬ 
mais tera algum dos problemas que enumeraremos a se 
guir . 

Em tempo, e óbvio que os autores não são 
infalíveis e alem do que podem surgir também alguns 
erros na composição. Passamos a culpa para o datilo 
grafo... 

Portanto perdoadas as eventuais mancadas 
dos autores e como todo mundo comete erros de tempo 
em tempo, vejamos p que fazer se os programas não 
apresentarem o que deles se espera. 

Aí vao algumas receitas ou seja alguns "re 
médios" para as suas mancadas caro(a) leitor(a). 


1 —Voce pensou que bateu a linha 70, porem es¬ 
queceu do 0 (zero) e bateu a linha 7 por engano. 

0 TK-85 lhe dã uma indicação de erro do tipo 
2/7 pois nao lhe foi dito que era para esquecer es 
te digito e a linha não esta relacionada com o res¬ 
to do programa. 

A cura para este mal ê editar (EDIT) a linha 
7 e acrescentar o 0 e então apertar | NEWLIHE ] para 
entrar a linha com numero de linha correto. 

Apague (ou seja de um "RUBOUT") a linha 7 te 
ciando o 7 e então após isto teclando f NEWLIHE - ] . 

Voce pode ter pulado uma das linhas por enga 


0 TK—85 lhe dã um relatório de erro 2/ "nume 
ro de linha" pois ele esta procurando achar algo que 
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ele precisa da linha omitida. 

Única solução - Bater a linha que foi omiti 

d a . 

XXX — Você pode ter teclado uma linha erradamen- 
te porém não o suficientemente errada para que o 
TK-85 impeça a ascensao (1 indo nao ?! I ! desta linha 
ao programa). 

Você poderia ter escrito 

100 LET C=13 
no lugar de 

100 LET V=13 

porque as teclas C e V estão bem próximas uma da ou 
tra . 

Possível forma de descobrir o "grilo" - Veri 
ficar linha por linha o programa principal e então 
fazer a mudança. 

Esta é a solução por inspeção para nao dizer 
por visão ou seja revisão total. 

IV—^ Existe um erro em uma parte do programa que 
nao ê usado a todo instante. 

Este erro por exemplo pode estar na linha de 
alguma instrução contadora ou seja aquela na qual 
se acumulam os pontos de um jogo. 

Se a mensagem de erro tem a forma 2/"número 
de linha" então tente os remedios de I ate III indi 
cados hã pouco. 

V■ — » 0 cõdigo de erro 3 ou B significa que um nu - 

mero nao ê suficientemente bom ou melhor, adequado 
para a tarefa que se esta exigindo. 

Por exemplo 
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200 PRINT AT X,Y 

pode nao entrar ou melhor não ser executada caso X 
ou Y sejam negativos ou X seja maior que 21 (sõ te¬ 
mos 22 linhas na tela) ou Y maior que 31 (só temos 
32 colunas na tela). 

Note que as linhas sao numeradas 0,1,2,...21 
de cima para baixo e as colunas sao numeradas 0,1, 

2.31 da esquerda para a direita. 

0 problema pode também surgir em uma instru¬ 
ção como 

300 PRINT V$(K) se K 

deve ter 25 letras e não existem mais que 18 letras 
em V$ ♦ 

É evidente que o TK-85 não irá ter condi¬ 
ções por exemplo de achar a vigésima quinta letra. 

Tome estimado(a) leitor(a) muito cuidado 
principalmente nos STRINGs (cadeias) que serão usa¬ 
dos para simular um movimento na tela. 

Observação importante - 0.1. 

Nao permita que o programa que está entran 
do no seu TK-85 seja uma casa da bolacha onde nada 
se acha... 

Ai vai ser uma desgraça para passar algum 

programa. 

VI—-** Um número extra pode ter sido acrescido a um 
GOTO ou a um GOSUB ou ainda pode ter sido esquecido 
algum número. 

Des sa maneira o seu TK-85 fica um tanto quan 
to atordoado pois está sendo mandado para algum lu¬ 
gar que não pode ir ou esta sendo mandado para o lu 
gar errado. 
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Com os humanos as vezes ocorre um fato dife¬ 
rente ou seja mandam-se as pessoas para certos luga 
res e elas nao vao de forma alguma,.. 

A solução para achar este tipo de erro e no¬ 
vamente a paciente e nipônica verificação linha por 
linha do programa todo. 

VII— *' Erro 5/"número de linha" significa que a te¬ 
la está lotada e voce esta tentando imprimir fora 
da janela correspondente a uma tela. 

Caso isto ocorra você deve olhar o seu coman 
do PRINT ou então tentar resolver o problema com o 
comando CONT e depois NEWLINE. 

VIII— * A mensagem de erro 4/"número de linha" signi 
fica que você "estourou" a memória RAM do seu TK-85, 

Este fenômeno não ê tão raro porem naoocor 
rerã nos programas deste livro a não ser que depois 
de algum tempo o(a) criativo(a) leitorCa) acrescen¬ 
te coisas tão originais por conta própria que ocor 
ra o esgotamento da memória do seu TK-85. 

Os remédios podem ser: a) usar um programa 
com uma tela menor fazendo economia nas mensagens 
e principalmente nas observaçoea (REMarks); b) lim 
par a tela com o [CLS ] sempre que for possível; c) 
a solúçao "melhorai" ou seja expandir a memória 
RAM (bom esta solução e a mais simples mas também 
pode ser cara!'). 
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X— —* A mensagem codificada como 9/"numero de li¬ 
nha" significa que o seu TK-85 atingiu um comando 
STOP. 

Isto também pode ocorrer em vista de galhos 
do tipo I. 

XI— *' A mensagem codificada 6/. "número de linha" 
significa que existe um erro na aritmética ou algé¬ 
brico (notou bicho na aritmética!!!) e o seu TK-85 
nao pode fazer aquilo que você estã lhe mandando. 

XII— ► A mensagem codificada 7/ "número de linha" 
significa que voce se esqueceu de alguma linha de 
programa com um STOP ou um GOTO e o seu TK-85 estã 
perdido cometendo enganos por você programados em 
alguma subrotina. 

XIII— *0 programa pode entrar em um laço sem fim. 

Isto ãs vezes até é desejável. 

A única maneira de sair desta situação é apertando 
a tecla [break| . 

Uma causa provável pode ser alguma linha per 
dida de GOTO ou ainda números errados ou esquecidos 
nos comandos GOTO. 

XIV— * Perdeu-se o programa porque faltou luz devi¬ 
do a um defeito na rede da Eletropaulo durante um 
segundo!!!! 

Outro azar, teclou-se por descuido o {NEWl 

Soluçao: "Sorria meu bem, sorria..." 

Conhece esta música.’!! 

Pois ê,você deve entoa-la e começar 
alegremente a teclar o programa todo 


d e novo. 
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Alias as vezes pode também ocorrer uma la¬ 
mentável desconexão de algum fio da tomada ou ainda 
um querido parente chegar com um sorvete para você 
e distraidamente tropeçar num fio desligando o sis¬ 
tema . 

Agradeça pelo sorvete, não fale nada que 
não esta no dicionário e ainda mais se perguntarem 
algo diga, sou loüco para digitar tudo pela segunda 
vez. 

5 - GUARDANDO 0 SEU PROGRAMA 

A digitaçao de um programa longo consome 
muito tempo. 

Alem disso, toda vez que se tecla abre—se 
a possibilidade para que surjam novos erros. 

Contudo um programa pode ser armazenado em 
uma fita magnética da mesma forma que você grava 
uma musica de sucesso quando essa lhe interessa, no 
seu gravador. 

Para "salvar" um programa depois que omes- 
mo foi digitado e verificado no seu TK-85 tudo o que 
voce deve fazer ê teclar a palavra SAVE e decidir 
então sobre o nome para um particular programa. 

Para nao encucar a cabecinha do(a) queri- 
do(a) e criativo(a) leitor(a) jã colocamos nomes 
nos nossos programas. 

Alguns até podem parecer longos mas a nos¬ 
so ver sao sugestivos. 

0 49 programa tem o nome de "MATERIAL PARA 
CONCRETO". 
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Caso voce deseje gravar esse progr$ama te¬ 
cle 

SAVE "MATERIAL PARA CONCRETO" 

Neste ponto voce deve colocar o seu grava¬ 
dor no modo "recorder" ou seja gravaçao. 

Pressione agora a tecla NEWLINE e o pro¬ 
grama ou mais precisamente uma copia do seu progra¬ 
ma passará para a fita cassete visto que o seu pro¬ 
grama original ainda reside na memória RAM do seu 
TK-85. 

Voce saberá que a gravação está completa 
quando aparecer o cSdigo de término da mesma 0/0 
no canto inferior da esquerda da sua tela. 

Agora voce jã pode desligar o seu grava¬ 
dor . 


6 - CARREGANDO UM PROGRAMA 

Com o intuito de carregar um programa de 
uma fita cassete para o seu TK—85 inicialmente te¬ 
cle NEW seguido por uma tecla NEWLINE . 

l _ 

Agora voce pode teclar por exemplo 

LOAD "MATERIAL PARA CONCRETO" 

o qual ira buscar e carregar na memória RAM do seu 
TK-85 o programa chamado "MATERIAL PARA CONCRETO". 
Tem-se também a alternativa 


o qual busca e carrega o primeiro programa completo 
que encontrar na fita. 
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Observações importantes - 0,1. 

1) Nao esqueça de fazer uma anotaçao precisa do no¬ 
me do programa que voce estã armazenando,incluin 
do quaisquer espaços em branco entre palavras que 
possam existir no nome do mesmo, 

Caso você guarde um programa chamado "MATERIAL PA 
RA CONCRETO" na fita e mais tarde queira carregar 
um programa chamado "MATERIALPARACONCRETO" dames 
ma fita o seu TK-85 nao serã capaz de encontrar 
o programa. 

Que falta irao fazer os dois espaços em branco 
perdidos lI ?!!? 

2) Deve-se ter um gravador de "mono” nao o estereo 
para carregar ou para guardar programas. 

Caso o seu gravador de fitas seja apenas estereo 
você deve virar o controle do "balance" (gostou 
dessa chapa?) ou todo para a esquerda ou todo pa 
ra a direita. 

Alêm disso você devera manter o controle do volu 
me um tanto quanto alto, talvez a 75% do volume 
máximo. 

Finalmente o controle do tom deve estar na sua 
mais alta posição. 

E, o seu TK-85 se "embobina" um pouco com grava¬ 
dor sofisticado pois o que ele quer ê um grava¬ 
dor simples... . 


II. PROGRAMAS 





Ai vao alguns pro graminh as"esparsos 17 de 
calculo que exigem poucos conhecimentos técnicos e 
inteligência mediana. 

Eles mostram entretanto de forma insofis¬ 
mável a utilidade do seu TK-85. 


a) Inicialmente vamos elaborar um progra¬ 
ma para obter todos os numeros divisíveis por 14 
desde 100 até 2000 e obter a soma de todos eles. 


10 REM NÜMERO DIVISÍVEL POR 14 

20 LET S = 0 p- 

30 FOR N = 112 TO 2000 STEP 14 
40 PRINT N; "CD'; 

50 LET S = S + N 
60 NEXT K 
70 GOSUB 500 

100 PRINT TAB 13; "SOMA = n ;S 
110 GOSUB 500 
120 STOP 

500 FOR I = 1 TO 32 
510 PRINT 
520 NEXT I . 

530 RETIIEN 


este e o primeiro nu¬ 
mero divisível por 14 
dentro da faixa espe¬ 
cificada 


30 


31 


b) Vamos agora indicar o programa que per 
mite imprimir tres numeros inteiros ( todos meno¬ 
res que 30, de tal forma que se tenha o mesmo re¬ 
sultado quer eles tenham sido somados ou multipli¬ 
cados , isto é 

X*Y*Z=X + Y + Z 
Al vai o programa verificador: 

10 REM PROCURA DE TRÊS INTEIROS ESPECIAIS 

20 FOR X = 1 TO 30 

30 FOR Y - X TO 30 

40 FOR Z = Y TO 30 

50 IF X*Y*Z<> X+Y+Z THEN GOTO 100 

60 PRINT "0 PRIMEIRO 2:"; X 

70 PRINT n O SEGUNDO 2: ";Y 

80 PRINT "0 TERCEIRO 2: M ; Z 

90 PRINT "A SOMA OU 0 PRODUTO DOS TRÊS VALECT; X*Y*Z 
100 NEXT Z 
110 NEXT Y 
' 120 NEXT X 
130 STOP 


2 2 

Ãrea = tt (R - r ) onde 


raio externo 
raio interno 



R 


L 

r 

r 


Figura 1 

AÍ vai o programinha para 


esse calculo 


10 REM CÃLCULO DA ÃREA DE UM ANEL CIRCULAR 
20 PRINT M ENTRE COM 0 RAIO EXTERNO" 

30 INPUT E 

40 PRINT "ENTRE COM 0 RAIO INTERNO" 

50 INPUT I 

60 LET A = PI * (E**2 - 1**2) 

70 PRINT "A ÃREA DO ANEL 2:"; A 
80 PRINT "METROS QUADRADOS 
90 STOP 


c) Tem-se no centro de uma praça circular 
uma piscina também circular. 

Os raios interno e externo são respectiva 
mente 7 e 13 metros (veja a Figura 1)^ 

Qual ê a ârea disponível para as pessoas 
na praça e que nao estejam dentro da piscina? 

Bem a resposta e muito simples e ê dada 
pela formula que dã a ârea de um anel circular 




pouco- roais elaborados e que terão um grande va 
lor para que o(a) leitor(a) possa entender pro 
gramas mais extensos que vem aí pela frente. 

Inclusive no "FORMULA-!" que e o 39 pro- 
gr ama-exemplo que apresentamos jã as coisas vão com 
plicar um pouco mais. 

Mas como ainda estamos na "F0RMULA-2"cres 
cendo em perícia e velocidade aí vão novos progra- 
minhas numéricos. 

a) 0 rei Pe líder indiscutível da 
ilha Descanse Sempre resolveu distribuir uma pe- 
quena parte da sua grande fortuna no dia dedicado 
â festa do peixe. 

Ele deu 1 u.m. (unidade monetária) para o 
primeiro nativo, para os proximos dois ele deu pa¬ 
ra cada um 2 u.m., para os tres seguintes ele deu 
3 u.m. para cada um e assim por diante, 

0 programa que vem a seguir impede que al 
gum nativo receba mais que 100 u.m. 
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A formula para o calculo estimativo do ny 
mero de nativos que vive na ilha é 

t, _ x(l + x) 
r 2 

e o rei Pé "48" foi aconselhado pelo feiticeiro a 
escolher um valor inteiro para x entre 34 e 134. 

Com esse programinha o rei Pe "48"sabera, 
em função da sua escolha do x quanto dinheiro dis¬ 
tribuiu no total, quantos súditos atendeu e naeven 
tualidade de não "agraciar" alguns qual i o seu nú 
mero. 


10 PRINT "A DISTRIBUIÇÃO DO DINHEIRO DE PÉ ’48 tM 
15 INPUT X 

20 LET P = X*(l+X)/2 

30 LET K = 1 

35 LET T = 0 

40 LET T = T + K * K 

50 LET N = (1 + K) * K/2 

60 IF K >100 THEN GOTO 500 

70 LET K = K + 1 

80 IF N > = P THEN GOTO 600 

90 GOTO 40 

500 PRINT "0 NÚMERO TOTAL DE NATIVOS AGRACIADOS ÊO"; N 
505 PRINT 

510 PRINT "ALGUNS NÃO VÃO RECEBER NADA, POIS MAIS QUE 
100 U.M. NINGUÉM PODE RECEBER" 

520 PRINT "FICARAM Ã VER NAVIOS O"; P-N ; "ONATIVOS" 
525 PRINT 

530 PRINT "PÊ ’48 1 DISTRIBUIU UM TOTAL DE: 

535 PRINT T; "O U.M." 

540 STOP 


600 PRINT "TODOS OS NATIVOS FORAM AGRACIADOS" 
610 PRINT "NUM TOTAL DE:"; P; "OPESSOAS" 

620 PRINT "PÉ ’48' DISTRIBUIU UM TOTAL DE:" 
625 PRINT T; "Ou.M." 

630 GOTO 540 


Comentários: 


Na realidade nesse programinha na variá¬ 
vel T se acumula o total distribuido, com a variá¬ 
vel N se representa o numero de pessoas ja "agra¬ 
ciadas" e cujo total constitui uma progressão arit 
mética (P.A.) comparando-se o mesmo com P que e a 
população que recebera o benefício (linha 20). 

Com a variável K controla—se a quantia ma 
xima a ser distribuída que é de 100 u.m. ou seja 
não mais que 100 u.m. serão dadas a 100 nativos di 
ferentes. 

Na realidade estamos analisando as seguin 
tes séries 



19 nativo 

2 nativos recebem 2 u.m.cada um 

3 natiVos recebem 5 u.m.cada um 


(1) + (2+2) + (3+3+3) + (4+4+4+4) +,..+ (k+k+ ... k) 

I » I I - 


T = l 2 + 2 2 + 3 2 + 4 + ... + k — Série que da 

o dinheiro 
distribuido 

N=l 2 +2 + 3 + 4 + ,.. + k Serie que da 

o numero de na 
tivos benefi¬ 
ciados . 

A restrição obvia é que a soma de todos 
os nativos não pode ultrapassar P e além disso,co 
mo ja foi dito nenhum nativo pode receber mais que 
100 u.m. (K <- 100). 
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b) Vejamos agora como se pode elaborar um 
programa em BASIC para gerar numeros pseudo-aleat 
rios no intervalo de 1 ate 10. 

Numeros pseudo-aleatorios são numeros ge¬ 
rados por computadores de uma forma determinística. 

Contudo aos numeros pseudo aleatórios se 
aplicaram muitos testes estatísticos de aleatorie— 
dade e para finalidades praticas eles podem ser 
considerados aleatórios. 

Para uma alimentaçao inicial do programa 
pode-se entrar cora um numero N entre 1 e 99. 

10 PRINT "PROGRAMA GERADOR DE NÚMEROS ALEATÚRIOS" 

15 PRINT 

20 PRINT "ENTRE COM UM NÚMERO CHAVE" 

30 INPUT N 

40 LET R = .01 * N 

50 PRINT "At VÃO ALGUNS NÚMEROS ALEATÚRIOS" 

60 FOR I = 1 TO 25 

70 LET R = (PI + R)**5 - INT((PI + R)**5) 

80 LET T = 10 * R 

90 LET X = INT T 

100 IF X >10 THEN GOTO 70 

110 IF X<1 THEN GOTO 70 

120 PRINT "X="; X;"QO"j 

130 NEXT I 

140 STOP 

,Como sugestão, entre inicialmente com 
N = 43, que e a idade atual do autor e veja 25"lin 
dos" numeros aleatórios. 


IO\ 
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c) A torre de Hanoi 

Um "jogo" foi inventado pelo matemãtico 
francês, Edouard Lucas no século XIX e consistia 
de um numero de discos (n £-3) de vários diâmetros 
com o maior na parte de baixo e o menor na parte 
de cima 


A finalidade do jogo era transferir o con 
junto de discos do pino onde estavam empilhados pa 
ra qualquer um dos outros, movendo um disco de ca¬ 
da vez e nunca colocando um disco maior no topo de 
um que e menor. 

Ê claro que o intuito da brincadeira érea 
lizar isto no menor número possível de movimentos 

Lucas chamou ao jogo de torre de Hanoi e 
provou que o número de movimentos mínimo possível 
para terminar o jogo é 2 n —1 onde n e o numero de 
discos , 

Assim conforme o numero de "andares" da 
torre de Hanoi teremos o seguinte número de movi¬ 



mentos . 
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Tabela 1 


Com o programinha abaixo da para sentir os 
resultados da Tabela 1 para N <13. 

10 PRINT "TORRE DE HANOI" 

20 LET N « 13 

30 PRINT "0 NÚMERO MÁXIMO DE DISCOS fí:"‘jN 
40 FOR J = 2 TO N 
50 LET M = 2**J-1 

60 PRINT "PARAO"; J; "OdISCOS"; "O"; M; "OMOVIMENTOS"; 
70 PRINT "□ DEVEM SER FEITOS'.' 

80 NEXT J 
90 STOP 

0.I. - Para maiores detalhes sòbre a torre de Hanoi 
uma sugestão ê a soluçào recursiva apresentada por 
Joao Henrique A. Franco no seu artigo "Torre de Ha¬ 
noi: uma solução em BASIC" - Micro Sistemas N9 22 
(julho-1983). 


Esta ê a última seleção de pequenos pro¬ 
gramas com resultados importantes. 

a) No programa inicial iremos obter os nú 
meros de Armstrong ou seja aqueles nos quais a so¬ 
ma dos cubos dos seus algarismos ê igual ao pró¬ 
prio número. 

É este um bom pretexto para se usar fun- 
Çoes que se aplicam à cadeias de caracteres ou se¬ 
ja à variáveis STRING. 

10 PRINT "NÚMEROS DE ARMSTRONG" 

20 PRINT "ENTRE COM 0 NÚMERO MÁXIMO" 

30 INPUT M 
40 CLS 

45 PRINT "ENTRE 0 E O M;"0EXISTEM OS N. DE ARMSTRONG" 
50 PRINT 
60 FAST 

70 FOR N = 0 TO M 
75 LET S « 0 
80 LET N$ = STR$ N 
90 LET L = LEN N$ 

100 FOR J = 1 TO L 

110 LET S = S + VAL N$(J)**3 
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120 NEXT J 

130 IF INT S = INT N THEN PRINT N 
140 NEXT N 

Comentário: 


Caso você entre com M = 500 obterá os se¬ 
guintes numeros de Armstrong 0, 1, 153» 370, 371, 
407. 

C Gos tou ? ? ? ? 

■.407 = 4 3 + 0 3 + 7 3 = 64 + 0 + 343 = 407 


b) A constituição da matéria ê atualmen¬ 
te bem conhecida. 

0 programa que vem a seguir representa na 
tela um átomo simples do lítio 


[M 


e apresenta uma pequena animação com os 3 eletrons 
movimentando-se em torno do núcleo atômico. 

0 núcleo por sua vez e constituído de pro 
tons e nêutrons. 

AÍ vai o programinha 


10 PRINT "ÃTOMO" 

20 FOR K = 1 TO 32 
25 PRINT " *"; 

30 NEXT K 

35 PRINT "MASSA ATÔMICA DO LÍTIO É 6" 

40 PRINT "0 REPRESENTA 0 ELETRON O)" 

50 PRINT "0 REPRESENTA 0 PROTON (+) NO 
60 PRINT "0 REPRESENTA 0 NÊUTRON NO | 
70 PAUSE 750 
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80 FOR V = PI - PI TO PI + PI STEP .4 


90 LET X = 9 * COS y 
100 LET Y = 5 * SIN V 
110 CLS 

120 PRINT "LI" 


Será que o TK-85 gosta 


dessa forma de expri¬ 
mir a variação de V? 


Resp.: Gosta 


130 PRINT AT Y + 10, X + 17; "0" 

140 PRINT AT X + 10, Y + 17; "0" 

150 PRINT AT 9,17; "ECH” ;AT 10,16; " QÜSO 
AT 11,19; "O" 


160 NEXT V 


170 GOTO 90 


c) Agora vai o programa que faz a adição 
de vetores. 

Inicialmente vejamos um pouco de etimolo¬ 
gia caro (a) leitor(a) e recordemos algumas defini 
çoes . 

Vetor vem do latim vehere que quer dizer 
levar, carregar, transportar. 

0 nome de vetor corresponde justamente ao 
conceito do transporte da origem A ã extremidade 
B. 

A definição por "concretização" é a se¬ 
guinte: 

Vetor e o ente geométrico dotado de móáu - 
^ 0 ^ direção e sentido , 

Em outras palavras: grandeza caracteriza¬ 
da por numerOj direção e sentido . 

A representação gráfica de um vetor e um 
segmento retilíneo orientado. 

Entende—se por mSdulo ao valor absoluto 
(.aritmético, positivo) do vetor medido com unidade 
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arbitrária de extensão linear e em escala apro¬ 
priada. 

Bem depois dessas rápidas noçoes você es¬ 
tá apto a entender o programa de adiçao de dois 
vetores, 

5 CLS 

10 REM SOMA. DE DOIS VETORES NO PLANO 

20 PRINT "ENTRE COM OS DADOS DO PRIMEIRO VETOR NA FORMA: 

MÕDULO (Ml) E ÂNGULO (Al) EM GRAUS" 

30 INPUT Ml 
40 INPUT Al 
50 LET RI - Al * PT/180 
60 LET XI = Ml * COS RI 
70 LET Y1 = Ml 
75 PRINT 

80 PRINT "ENTRE COM OS DADOS DO SEGUNDO VETOR NA FORMA: 

MODULO (M2) E ÂNGULO (A2) EM GRAUS" 

90 INPUT M2 
100 INPUT A2 

110 LET R2 * A2 * Pl/180 
120 LET X2 = M2 * COS A2 
130 LET Y2 = M2 * SIN R2 
140 LET X = XI + X2 
150 LET Y = Y1 + Y2 
160 LET R ■ ATN (Y/X) 

170 LET A = 180 * R/PI 
180 LET M = SQR(X*X + Y*Y) 

185 PRINT 

190 PRINT "O MODULO DO VETOR SOMA Ê 
DADES" 

200 PRINT "O ÂNGULO DO VETOR SOMA fi IGUAL Aí"; A; "ÜGRAUS" 
205 PRINT 
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210 PRINT "AS COMPONENTES DESSE VETOR SOMA SÃO:" 

220 PRINT "X«"; X; TAB 18; "Y="; Y 

230 PRINT "VOCÊ QUER ENTRAR COM OUTRO VETOR (S/N)?" 

240 INPUT R$ 

250 IF R$ » "S" THEN GOTO 5 
260 STOP 


Comentário: 

Aplique o seu programa para os vetores da 

Figura 3 



Figura 3 


Na Figura 3 |v x l e |v 2 | são os modulos 
dos dois vetores e v 2 * 

O modulo do vetor soma resultante deu 

8.323? 

E os outros resultados quais sao? 

Que tal agora você ampliar este último 
programinha para tres vetores V^, ^2 e ^3 concor ~ 
rentes sendo que os seus modulos sao dados pelas 
expressões 
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de estimar quanto devemos ter de areia, agregado e 
cimento para obter o concreto que sera usado para 
fundir uma laje. 

Para auxiliã-lo nessa "dificil" tarefa é 
que apresentamos o programa "MATERIAL PARA CONCRE-* 
TO" . 

Inicialmente devemos conhecer as formulas 


que permitem esse calculo antes de entender e es¬ 
crever o programa em BASIC. 

Olhando em qualquer livro de Materiais de 
Construção da área Civil obtemos a seguinte infor¬ 
mação "um metro cúbico de concreto feito de uma 
parte de oimanto , x partes de areia e y partes de 
agregado ou seja uma mistura do tipo 


necessita: 


1 : x : y 

- .. . 1,5 x 

sacos de cimento, me 


tros cúbicos de areia e ■=— 1 —— metros cúbicos de 

1 + x + y 


agregado. 

Na realidade nao ê tão importante assim 
entender de onde vieram essas formulas e elas po¬ 
dem ate variar um pouco se nós variarmos o peso de 
um saco de cimento. 
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Serã realmente tudo esclarecido quando vo 
ce for do ramo de construção civil. 

Porem o nosso negocio e manipular as for¬ 
mulas dadas e apresentar um simples e util progra- 
minha no seu TK-85 facilmente adaptável a realida¬ 
de de cada um. Ta!!! 

10 PRINT "CÁLCULO DO CONCRETO" 

20 PRINT 

30 PRINT "QUAL É A ESPESSURA DA LAJE (EM MM)?" 

40 INPUT E 

50 PRINT "QUAL É 0 SEU COMPRIMENTO (EM M)?" 

60 INPUT C 

70 PRINT "QUAL É A SUA LARGURA (EM M)?" 

80 INPUT L 
90 PRINT 

100 LET V = .001 * E * C * L 

110 PRINT "VOLUME t IGUAL A(I)";V; "OmETROS CObiCOS" 

120 PRINT 

130 PRINT "QUANTAS PARTES DE AREIA PARA UMA PARTE DE 
CIMENTO? " 

140 INPUT X-■— | Entre aqui com 3 

150 PRINT "QUANTAS PARTES DE AGREGADO PARA UMA PARTE 
DE CIMENTO?" 

160 INPUT Y—-— | Entre aqui com 4 ] 

170 LET T = 1 + X + Y 
180 LET P = V/(0.02 * (1 + X + Y)) 

190 LET Q = V * X * 1.5/T 
200 LET R = V * Y * 1.5/T 

210 PRINT "USANDO UMA MISTURA DE 1:"; X; ";Y 
220 PRINT "VOCÊ NECESSITA" 

230 PRINT P; "ÜSACOS DE CIMENTO," 

240 PRINT Q; " DmETROS CÚBICOS DE AREIA E" 
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250 PRINT R; "OMETROS CÜBICOS DE AGREGADO" 

260 STOP 

Comentários sobre o programa 

Na 1? parte do programa são dadas todas 
as dimensões da viga ou da laje de concreto, calcu 
lando-se o seu volume (linhas 30-100). 

0 programa então pergunta sòbre a taxa ou 
proporção da mistura usando as fórmulas propostas 
0 nos dá como resultado final os sacos de cimento 
e o volume de areia e agregado necessário. 

Finalmente, os resultados sao impressos 
de tal forma que voce caro leitor ou estimada lei¬ 
tora possa facilmente percebe-los na tela. 




A função RND diferentemente de outras fun 
çoes numéricas, não tem argumento. 

Ele gera um número aleatorio ou como al¬ 
guns dizem randomico entre 0 (valor que pode ocor¬ 
rer) e 1 (valor que nao pode ser assumido). 

As funções RND e PI sao unãrias ou seja 
com um único operando. 

RND e RAND estão na mesma tecla porem ob¬ 
viamente nao sao a mesma coisa. 

RND ê uma função. 

RAND e uma palavra chave que permite con¬ 
trolar a aleatoriedade de RND. 

RND nao é verdadeiramente aleatorio, vis¬ 
to que segue uma sequência de 65536 números tão 
misturados que parece ser aleatorio. 

Dessa forma diz—se que RND ê um pseudo- 
aleatório . 

Voce pode usar RAND para inic.ializar RND 
em diferentes lugares na sequência digitando RAND 


50 
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e um número entre 1 e 65535 e então o 1NEWLINE j . 

Ja RND 0 (e o zero nao precisa ser dígita 
do) age de forma bem diversa. 

Com esse comando define-se onde inicia o 
RND ao longo do tempo que o seu monitor estiver li 
gado e dessa forma e genuinamente aleatório. 

Para mais alguns detalhes comum ler o Ca¬ 
pítulo 5.2 do seu Manual do TK-8S. 

Se vocé nao tem um TK, já esta pensando 
em adquirir um nao ê? 

Chega de papo e vamos a alguns programas 
bem simples mas muito importantes para a completa 
compreensão de RND e do RAND. 

a) Vamos gerar 200 números aleatórios,mui 
tiplicã-los por 5, tomar a sua parte inteira obten 
do dessa forma os números 0., 1, 2, 3 e 4 e classi- 
ficã-los ou seja dos 200 números gerados quantos 
nos levam ao 0, ao 1, ao 2, ao 3 ao 4. 

0 ideal seria ter em cada "classe" 40 nú¬ 
meros visto que eliminamos da ciassificaçao os nú¬ 
meros 5, 6, 7, 8 e 9 porém como se trata de uma 
amostra o resultado é um pouco diverso do teórico 
esperado. 

10 CLEAR - 

20 RAND 
25 DIM A(5) 

30 FOR I = 1 TO 5 
34 LET A(I) = 0 
36 NEXT I 
40 LET T = 0 

50 PRINT "GERANDO, ACUMULANDO E CLASSIFICANDO" 


Com esse comando cancelam-se 
todas as variaveis, liberan¬ 
do o espaço na memória por 
elas ocupado 





60 FOR K = 1 TO 200 
70 LET N = INT(5*RND) 


80 IF N - 0 THEN LET A(1)^A(1)+1 
90 IF N * 1 THEN LET A(2) = A(2) + 1 
100 IF N = 2 THEN LET A(3) = A(3) + 1 

110 IF N = 3 THEN LET A(4) = A(4) + 1 

120 IF N = 4 THEN LET A(5) = A(5) + 1 

130 NEXT K 
135 PRINT 

140 FOR J = 1 TO 5 
150 LET T = T + A(J) 

160 PRINT J - 1; Q"; A(J) 

170 NEXT J 
180 PRINT 

190 PRINT "*************" 

200 PRINT "TOTAL E:"; T 
210 PAUSE 300 
220 CLS 
230 GOTO 10 


dã um número inteiro entre 
0 e 4 




b) Veja agora melhor ainda a qualidade do 
seu gerador de números aleatórios quando de 100 nú 
meros gerados deveríamos ter metade abaixo de .5 
ou 50 e metade acima de .5 ou em números intei¬ 
ros acima de 49 como indicamos no programa abaixo. 


10 LET N = 0 
20 LET M = 0 
25 PRINT 

30 FOR I = 1 TO 32 
40 PRINT 
50 NEXT I 

55 FOR K = 1 TO 100 
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60 LET R = INT(100 * RND) 

70 IF R<50 THEN LET M = M+l 
80 IF R > 49 THEN LET N = N+l 
90 NEXT K 

100 PR TNT N; "DACIHA DE 49" * 

110 PRINT M; "(^ABAIXO DE 50" 

120 FOR 1=1 TO 32 

130 PRINT 

140 NEXT I 

150 PRINT 

155 PAUSE 200 

160 GOTO 10 



usado em tantos jogos de lazer como o crepe,pôquer 
de dados, perseguição, etc. 

Vejamos como o seu TK-85 se comporta como 
um honesto e anti-sentimental crupiê. 

a) Aí vai uma forma rapida para introdu¬ 
zir dois dados reais a qualquer jogo real através 
do seu TK-85. 

Neste programa jogam-se dois dados e veri 
fica-se os resultados ou seja, olha-se para as fa¬ 
ces dos dados voltadas para cima. 

10 CLEAR 

20 PRINT "PARA JOGAR DOIS DADOS, APERTE QUALQUER TECLA" 

30 IF INKEY$ = ""THEN GOTO 30 
40 CLS 

50 GOSUB 500 

60 PRINT "A ******** 11 

70 PRINT "*0"; X; Y; "□*" 

80 PRINT M *********" 

90 PRINT 

95 IF ■ INKEY$ = "" 

97 CLS 


THEN GOTO 95 
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100 GOTO 10 

500 LET X = INT (RND*7) 

510 IF X <1 THEN GOTO 500 
520 LET Y = INT (RND*7) 

530 IF Y <1 THEN GOTO 520 
540 RETURN 

b) Caso o seu jogo necessite mais do que 
dois dados ê so modificar o programa do Item a) e 
vamos ajudá-lo nesse sentido. 

10 CLS 

20 PRINT "PARA JOGAR OS QUATROS DADOS, APERTE QUALQUER 
TECLA" 

30 IF INKEY$ = "" THEN GOTO 30 

40 FOR R - 1 TO 2 - 

50 GOSUB 500 
60 PRINT "a******** 11 
70 PRINT "* O" ; X; " 0*0" ;Y;" O*" 

80 PRINT "*********" 

90 PRINT 
92 PRINT 
95 PAUSE 200 
100 NEXT K 
110 PAUSE 300 
120 GOTO 10 
500 RAND 

'510 LET X = INT (7*RND) 

520 IF X <1 THEN GOTO 510 
530 LET Y = INT(7*RND) 

540 IF Y <1 THEN GOTO 530 
550 RETURN 


Com este LOOP vamos 
poder imprimir todos 
os numeros nas 4 fa 
ces que estão para 
cima. 




Sao essas as mercadorias que mais se va¬ 
lorizam nos últimos tempos. 

E evidente que para funcionar com eficien 
cia e lucidez nos dias de hoje,deve-se eliminar to 
do o tempo perdido em cálculos que podem ser fei¬ 
tos pelo seu super TK-85. 

Assim voce terá tempo para relaxar, cla¬ 
rear as ideias e recompor o seu físico. 

Ai voce também renderá mais e como conse¬ 
quência todos os seus negócios também... 

Apresentamos agora um programa que calcu- 
la ° salário bruto em função do numero de horas 
trabalhadas no mes, que e no mínimo 180h. 

Caso qualquer um dos seus empregados (no- 
e que voce ê o dono de algum negócio...) ultra— 
Passe 180h então pelas horas extras paga-se ao me 

502a mais do valor da hora trabalhada em cond 
Ç°es normais, 

Simule algumas situações para testar o seu 

Programa. 


tH* 1W 
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5 CLS 

10 LET E = 0 
20 LET S = 0 

30 PRINT "VALOR DA HORA TRABALHADA = CRO"; 

40 INPUT V 
50 PRINT V 
55 PRINT 

60 PRINT "NÜMERO DE HORAS TRABALHADAS =□"; 

70 INPUT H 

80 IF H <180 THEN GOTO 70 
85 PRINT H 

90 IF H >180 THEN LET E = H - 180 
92 IF H >180 THEN GOTO 120 
•95 LET S = H*V 
100 PRINT 

105 PRINT "SALÁRIO BRUTO = CRO"; S 
110 GOTO 140 

120 LET S = 180 * V + E * 1.5 * V 
130 GOTO 100 

140 PRINT "VOCÊ QUER ENTRAR COM OUTRO CÁLCULO (S/N)?" 
150 INPUT R$ 

160 IF R$ = "S" THEN GOTO 5 
170 STOP 


O.I. - No Micro Mundo de setembro 
secção TK—Mundo aparece ume forme 
te de calcular os juros compostos 
pitai. 


de 1983 CN? 7) na 
muito interessan 
e o aumento de c 


0 destaque especial do programa e a forma es 


pecial de exibir o resultado graficamente. w 

Todo(a) "computamaníaco(a)" que se preze nao 


pode deixar de ter o seu Micro Mundo e principalmen 
te saber como se manipulam os cálculos com juros. 


1 rti 


^ s e õ seu TK-85 para calcular ^rap"idamen- 
te o valor dos pagamentos mensais em vista das vá¬ 
rias alternativas possíveis como o valor que você 
quer pagar a vista (V), do preço total a vista (p) 
do produto que quer adquirir, e do numero de meses 
(N) no decorrer dos quais você quer distribuir o 
resto da sua divida desde que P-V >0 sabendo que 
será cobrada uma taxa de juros (J) ao mês. Como 
aplicaçao vamos supor que estamos comprando um au¬ 
tomóvel . 

Observação ‘importante 

Como a inflação está violenta o dinheiro 
sera considerado em u.m. (unidades monetárias) pa¬ 
ta dar impressão que se gasta pouco ou que as coi¬ 
sas custam menos. 

Na realidade estamos hoje como na Figura 
5. 



Al vai o programa: 

10 LET A = 0 

20 PRINT "PAGAMENTO DE UM AUTOMÕVEL" 
25 FOR L - 1 TO 25 
30 PRINT 
40 NEXT L 
43 PRINT 

50 PRINT "0 VALOR DO CARRO Ê: M ; 

51 INPUT P 
60 PRINT P 

70 PRINT "A QUANTIA PAGA A VISTA Ê:"; 

80 INPUT V 

90 PRINT V 

100 FOR I = 1 TO 31 

110 PRINT 

120 NEXT I 

122 PRINT 

130 LET R - P - V 

140 IF R < 0 THEN GOTO 350 

150 IF R = 0 THEN GOTO 380 

155 PRINT 


X 60 PRINT "VOCÊ AINDA DEVBO';R;" O U.M." 

165 PRINT 
X 70 INPUT N 

180 PRINT "N= n ;N;" □ E 0 NÜMERO DE MESES PARA SALDAR O 

débito" 

185 PRINT 
190 INPUT J 

200 PRINT "J=";J;"Q E A TAXA DE JUROS AO MÊS" 

205 PRINT 

210 FOR I = 1 TO 31 
215 PRINT "?"; 

220 NEXT I 
225 PRINT 

230 PRINT "O VALOR DA PRESTAÇÃO MENSAL Ê" 

240 LET A = R * (1 + J) ** N * J/((l + J) *N-1) 

245 LET A = INT (A * 100 + .5) / 100 
250 PRINT "M=";A;" O U.M. " 

260 FOR I = 1 TO 32 
270 PRINT 
280 NEXT I 
290 GOTO 490 

350 PRINT "VOCÊ PAGOU MAIS DO QUE DEVIA POR QUE?" 

360 GOTO 490 

380 PRINT "VOCÊ NÃO DEVE MAIS NADA" 

490 PRINT "CASO VOCÊ QUEIRA TESTAR OUTRO PLANO TECLE S 

500 IF INKEY$ = "" THEN GOTO 500 

510 IF INKEY$ = "S" THEN GOTO 600 

520 STOP 

600 CLS 

610 GOTO 10 


60 


Comentários: 

Para aplicar o programa "AMORTIZAÇÃO DE 
UMA DlVIDA" suponha que você tem os seguintes da¬ 
dos (Tabela 2). 


p 

V 

N 

J 

M 

10000 

1000 

12 

0,10 

?? 

18000 

5000 

6 

0,11 

?? 

20000 

21000 

1 

7 

?? 

30000 

30000 

7 

7 

7 7 


Tabela 2 


Da para obter M em todos os casos? 

Precisa do N e J em todos os casos? 

Ao responder essas perguntas vodê irá en¬ 
tender completamente o programa. 


0.1. 1 - Na Microhobby N9 3 voce encontra um arti¬ 
go interessantíssimo de Flavio Rossini "Matemática 
Financeira em BASIC TK" e nele são desenvolvidas 
duas subrotinas que executam respectivamente,a "en 
trada" e a "saída" de dados no padrão financeiro 
ou seja números encostados ã direita (e não a es¬ 
querda), com duas casas depois da vírgula (e não 
ponto) e com um ponto entre cada 3 algarismos. 

0.1. 2 - Na Micro Sistemas N9 17 (fevereiro del983) 
aparece o artigo "Calcule o tempo de retorno do seu 
investimento" de Fausto Arinos de Almeida Barbuto 
e acompanha o mesmo um programa pronto para o TK- 
85 que permite planejar os seus investimentos. 



Ao se gastar com dlvulgaçao, quer em ra¬ 
dio, quer em jornal, quer em T.V. ou por qualquer 
outro meio ê fundamental saber o que isto pode 

trazer de lucro para você. 

Neste programa "DIVULGANDO" são compara¬ 
dos os custos de dois meios de comunicação e con¬ 
clui-se dos dois qual é o mais favorável em vista 
de quantas pessoas ele atinge. 

0 seu TK-85 ê ensinado a fazer a compara- 

çao na base de um custo por mil. 

Digamos que voce vive numa grande cidade 
do interior do Estado de Sao Paulo e nela existem 
dois grandes jornais o "Noticias Vespertinas e o 
"Novas Matutinas" com respectivamente 28333 e 
31119 leitores cativos. 

0 "Notícias Vespertinas" cobra por um anún 
cio de certo tamanho 249 u.m. e o Novas Matutinas 
pelo mesmo anúncio cobra 299 u.m. 

Por qual voce deve optar? 

Baseie a sua conclusão no menor custo por 
1000 leitores. 

Bem, aí vai o programa que permite obter 
a resposta certa!!! 
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249 u.m. 


'Novas Matutinas" 


299u. m.1 


10 PRINT "PRIMEIRO MEIO" 

20 INPUT N$ -—- "Notícias Vespertinas") 

30 PRINT N$ 

40 PRINT "CUSTO DO ANÜNCIO:"; 

50 INPUT A -— [249 u.m. 

60 PRINT A; "Ou.M." 

65 PRINT 

70 PRINT "CIRCULAÇÃO: 

80 INPUT C -— |28333 

90 PRINT C 

100 LET M = 1000 * A/C 
110 PRINT "SEGUNDO MEIO: 

120 INPUT P$ — "Novas Matutinas" 

130 PRINT P$ 

140 PRINT "CUSTO DO ANÜNCIO:"; 

150 INPUT Q -— |299u.m. 

160 PRINT Q; "OU.M." 

165 PRINT 

170 PRINT "CIRCULAÇÃO: "; 

180 INPUT R -— 31119] 

190 PRINT R 

200 LET S = 1000 * Q/R 
210 PRINT 
220 PRINT 

230 PRINT N$;"OCPM:"; M; "QU.M." f—- 

Custo por 

240 PRINT P$ ; " OCMP: "; S; "OU.M." - 

250 IF S >M THEN PRINT N$;"Ofi A MELHOR ESCOLHA" 

260 IF M>S THEN PRINT P$;"ÜÊ A MELHOR ESCOLHA" 

270 IF M = S THEN PRINT "NÃO TEM DIFERENÇA " 

300 PRINT 
310 PRINT 

320 PRINT "PARA CONTINUAR PRESSIONE QUALQUER TECLA" 

330 IF INKEY$ = ”" THEN GOTO 330 
340 CLS 
350 GOTO 10 


Custo por mil CPM 



Neste programa o TK-85 irá testar a sua 


habilidade (será que ela ainda existe?) em aritmé¬ 
tica elementar. 

Nao fique tao nervoso assim, pois, o in¬ 
tuito final ê "exercitar" você nas quatro opera¬ 
ções elementares (adição, subtração, multiplicação 
e divisão). 

Aliás quem vai escolher a operaçao e o 
TK-85 e nao você. Nao ê em tudo que você pode ser 
0 primeiro, nao ê? 

0 que você deve fazer sendo o "segundon" 
Í responder corretamente ãs perguntas. 

Aliás o que tem de marido "primeiron" fa¬ 
lando sempre, sim senhora, dá para assustar... 

Cada vez que você for solicitado a respon 
der; os valores escolhidos serão diferentes, visto 
Tue, sao aleatoriamente selecionados pelo seu TK-85. 

Apos a pergunta ter sido exibida na tela 
v °ce é imediatamente "convidado" 5 "enviar" a res¬ 
posta certa entre quatro respostas possíveis. É no 
fundo um teste de multi pia escolha. 

As alternativas foram arrumadas de 
f°rma que voce poderá errar facilmente. 


tal 
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É mais um lindo truque, ou seja, um ar¬ 
dil, do seu TK-85 que nao quer "te ferrar" mas tam 
bem nao esta lixe dando muita moleza, 

Não se impõe neste programa nenhum limite 
ao(a) usuario(a) quanto ao tempo de resposta. 

Nao se trata de teste das quatro opera¬ 
ções feito com rapidez, e nem uma partida de xa¬ 
drez relâmpago, e sim da sua destreza aritmética. 

Para cada resposta certa você recebe 1pon 
to, porem â cada resposta errada você ê notificado 
do fato e alêm disso recebe o resultado certo para 
nao esquecer mais. 

Para parar o programa tecle simplesmente 
"7". É o numero de sorte do Sacha e-como para-se es 
te programa. 

10 LET K = 0 -•— respostas certas 

20 LET P = 0 -— contagem de perguntas res- 

30 DIM M(4) pondidas 

40 LET R = INT (RND *4+1) 

50 LET P = P + 1 

60 GOSUB R * 100 + 200 

70 PRINT AT 3,6; "TESTE DE ARITMÉTICA" 

80 LET S = INT (RND *4+1) 

90 LET M(S) = A 
100 GOSUB 700 

110 PRINT AT 7,3;"QUESTÃO0== >□'; X; 0$; Y; "□ = □?" 

120 PRINT AT 11,1; 

130 FOR L « 1 TO 4 

140 PRINT L; M(L); "00 

150 NEXT L 

160 PRINT AT 17,8; "ESCOLHA Ql ,2,3 QOU Q4" 

170 INPUT N 

180 IF N = 7 THEN GOTO 900 


190 IF M(N) = A THEN GOTO 800 

200 PRINT AT 18,1; "ERRADO,QaOALTERNATIVA□ CERTAÜERAO 
AG"; S 
210 GOTO 820 

300 LET X = INT (RND * 90 + 10) 

310 LET Y = INT (RND * 90 + 10) 

320 LET A = X + Y 

330 LET 0$ = "□ + □" 

340 RETURN 

400 LET X ■ INT (RND * 80 + 100) 

410 LET Y = INT (RND * 95 + 10) 

420 LET A = X - Y 

430 LET 0$ = "0“G M 
440 RETURN 

500 LET X * INT (RND *25+4) 

510 LET Y * INT (RND *25+4) 

520 LET A - X * Y 
530 LET 0$ = "0*0" 

540 RETURN 

600 LET Y = INT (RND *13+2) 

610 LET X = INT (RND * 25 + 10) * Y 

620 LET A = X/Y 

630 LET 0$ = "0/0" 

640 RETURN 

700 FOR J = 1 TO 4 

710 IF M(J) =* A THEN GOTO 760 

720 LET M(J) o INT (RND * (J+l) - 3)*5, + A 

730 FOR Z = 1 TO (J - 1) 

740 IF M(Z) » M(J) THEN GOTO 720 
750 NEXT Z 

755 IF M(J) = A THEN GOTO 720 
760 NEXT J 
770 RETURN 
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800 LET K = K + 1 

810 PRINT AT 18,8; "***□ CORRETO □***" 

820 PRINT AT 21,10; "CONTAGEM; K; P 

830 PAUSE 300 
840 CLS 
850 GOTO 40 

900 LET D = K/(P - 1) * 100 
910 CLS 

920 PRINT AT 11,8; "CONTAGEMOFINAL: ü"; INT D 
Pontos de interesse neste programa 

1) A linha 60 tem uma instrução GOSUB calculado ,que 
leva a subrotina apropriada para uma pergunta de 
adição, subtração, multiplicação ou divisão. 

2) Na linha 110 a pergunta, com a operação escolhi 
da aleatoriamente, e armazenada em 0$ e exibida 
na linha 7 da tela. 

3) Linhas 300-640 

Nessas linhas estão dadas as instruções que per 
mitem ã obtenção de numeros aleatoriamente es¬ 
colhidos e que serão usados nas operações. 

4) Linhas 700-770 

Ê aí que esta a "mutreta" do TK—85, que escolh.e 
ou melhor gera quatro alternativas que em um da 
do nível de ignorância representam um engodo pa 
ra que voce erre. 

Parece ate um convite ao pecado aritmético... 

E tem isso???! 
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5 ) Linhas 800-880 

Estas linhas sao apenas ativadas quando ocorre 
a resposta certa e através delas e que se exibe 
a razão de respostas certas para o total de per 
guntas respondidas. 

6 ) Linhas 900-920 

Caso a querida leitora ou o respeitado leitor 
se "encher" do programinha pode p,ara-lo elegan¬ 
temente com a pressão do seu lindo dedinho na 
tecla "7". 

Com isto ter-se-ã o escore final (em porcenta¬ 
gem) e para-se o sofrimento matemático. 

Torne o programa mais dinâmico dando um 
tempo para responder e caso o tempo se esgote con¬ 
te como se tivesse respondido erradamente. 

Bem em testes de raultip1a-escolha ê me¬ 
lhor não responder, do que responder errado se bem 
que em alguns exames, obriga-se ao aluno respon¬ 
der inclusive quando este não tem certeza da res¬ 
posta!?!?! 

0,1, - Na revista Micro Sistemas N9 23 (agosto de 
1983) aparece o programa "Professor Corujinha, no 
TK-82-C" de Ivo D’Aquino Neto. 

0 programa destina-se a auxiliar as crian 
ças no processo de aprendizagem de operaçoes mate¬ 
máticas elementares. 





creta" õs usuários a comprarem automóveis que te¬ 
nham potência cada vez menor e com isto haja um 
gasto menor de gasolina um certo país adotou o se¬ 
guinte sistema progressivo e violento de cobrança 
de taxas para o licenciamento dos veículos: 


Categoria 

Potência 
(H.P.) 

Taxa para o licen¬ 
ciamento em u.m. 

1 

P <50 

isento 

2 

50 <90 

40000 

3 

90 ^P < 160 

200000 

4 

160 ^ P < 250 

800000 

5 

P >250 

2000000 


Tabela 3 


Vamos apresentar um programa que permita 
entrar com a potência do seu carro e dar a voce co 
mo saída a taxa que devera pagar. 

Simule uma entrada em cada faixa para cer 
tificar-se que o seu programa esta certo. 
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10 PRXNT "ENTRE COM OS HP DO SEU CARRO 
20 INPUT P 

30 PRINT P 

35 IF P <0 THEN GOTO 1000 - 
40 IF P < 50 THEN GOTO 200 

50 XF P < 90 THEN GOTO 300 

60 IF P <160 THEN GOTO 400 
70 IF P <250 THEN GOTO 500 
80 LET T = 2000000 
90 GOTO 700 
200 LET T = 0 
210 GOTO 700 
300 LET T = 40000 
310 GOTO 700 
400 LET T = 2000000 
410 GOTO 700 
500 LET T = 800000 
510 GOTO 700 

700 PRINT "A TAXA PARA LICENCIAMENTO Ê IGUAL A:C"; T 
710 PRINT 
720 GOTO 20 
1000 STOP 

Como se deve modificar o programa "LICEN¬ 
CIAMENTO DE VEÍCULOS" de tal forma que o valor da 
taxa seja função da potência do carro conforme in¬ 
dicado na Tabela 4? 


Categoria 

Taxa de licenciamento como 
função da potência (u.m.) 

1 

isento 

2 

445 P 

3 

1250 P 

4 

3200 P 

5 

3650 P 


» 

dando-se uma 
potência negativa pa 
ra-se automaticamen¬ 
te o programa 



Tabela 4 
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^gSpOStCL. 

Para isto basta introduzir nas linhas 80, 
300, 400 e 500 as seguintes modificações respecti 

' 80 LET T = 3650 * P 
300 LET T = 445 * P 
' 400 LET T = 1250 * P 
500 LET T = 3200 * P 






cessario aumentar os gastos em divulgação de al¬ 
gum produto, se deve baixar o custo de produção, 
se deve aumentar a quantidade vendida para se ob¬ 
ter um lucro maior, etc. 

Haja duvidas e perguntas, não e? 

Porem o programa "SENTINDO AS VENDAS" aju 
dará voce a tomar decisões mais rapidamente quando 
tornar-se gerente, se ainda nao ê'. . . 

No programa SENTINDO AS VENDAS usamos as 
seguintes variáveis: 

P -*• preço de venda do produto 
C custo de fabricação do produto 
D -* custo total da divulgação 
Q *► quantidade vendida 
L •+ lucro obtido 
F ■+• lucro desejado 


Bem ai vai o programinha... 
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5 CLS 

10 PRINT "PREÇO DE VENDA: □ 

20 INPUT P 
30 PRINT P 

40 PRINT "CUSTO DE FABRICAÇÃO: O"; 

50 INPUT C 
60 PRINT C 

70 PRINT "GASTO COM DIVULGAÇÃO: 

80 INPUT D 
90 PRINT D 

100 PRINT "QUANTIDADE VENDIDA: G"; 

110 INPUT Q 
120 PRINT Q 

130 LET L=Q*P-Q*C-D 
135 PRINT 
138 PRINT 

140 IF L <= 0 THEN PRINT "OS NEGÓCIOS NÃO VÃO BEM" 

150 IF L < = 0 THEN GOTO 200 

160 PRINT "UFA, UFA... DEU UM LUCRO L = ";L;"OU.M." 

170 PRINT "VOCÊ GOSTARIA DE TER UM LUCRO MAIOR?" 

175 IF INKEY$ = "" THEN GOTO 175 
180 IF INKEY$ = "S" THEN GOTO 300 
190 GOTO 400 

200 PRINT "QUE DESGRAÇA, ESTOU PERDENDO ABS L; ,r Ou.M." 
205 PRINT 
210 GOTO 400 

300 PRINT "O LUCRO DESEJADO 1 F: ü"; 

310 INPUT F 
320 PRINT F 

330 LET Q = INTCtF + D)/(P - C)) + 1 
340 PRINT "A QUANTIDADE QUE DEVE SER"; 

345 PRINT "ÜFABRICADA E VENDIDA fiO"i Q 
400 PRINT 


410 PRINT "VOCÊ QUER ENTRAR COM OUTROS PARÂMETROS $U UM 
OUTRO PRODUTO (S/N)?" 

4 20 INPUT R$ 

430 IF R$ = "S" THEN GOTO 5 
440 STOP 

Comentário: 

Teste o seu programa para os seguintes da 
dos P = 998 u.m.» C = 237 u.m., D=1 280000 u.m. e 
q = 5000 unidades. 

Qual e o seu lucro L? 

A seguir descubra o valor de Q se você quer um 
lucro F igual a 6 000 000 mantidos os valores de 
P, C e D. 

Entre com outros valores e simule uma si¬ 
tuação na qual vocè perde (o que alias nao e muito 
difícil, hoje em dia...). 




13. VENDA TOTAL 



desempenho de 4 vendedores ao longo de uma semana. 

ê obvio que você eclêtico(a) leitor(a) po 


de ampliar o programa para mais vendedores!!! 

No programa calcula-se e imprime-se o to¬ 


tal vendido em cada dia» o total semanal de cada 


vendedor e a venda total de todos os vendedores na 


semana. 


Al vai o programa: 


10 DIM V(4,6) 

20 FOR I = 1 TO 4 


30 FOR J = 1 TO 
40 INPUT V(I,J) 



Entrada de dados por linha 
(veja a Tabela 5) 


50 NEXT J 


60 NEXT I 

70 FOR D * 1 TO 6 

80 LET S = 0 

90 FOR N « 1 TO 4 

100 LET S = S + V(N,D) 

110 NEXT N 

120 PRINT "TOTAL VENDIDO NO DIAO"; DJ "OeG"; S 
130 PRINT 
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140 NEXT D 

150 FOR N * 1 TO 4 

160 LET S = 0 

170 FOR D - 1 TO 6 

180 LET S = S + V(N»D) 

190 NEXT D 

200 PRINT "Ò TOTAL VENDIDO NA SEMANA PELO VENDEDOR O"; 

N; "OeD"; S 
210 PRINT 
220 NEXT N 
230 LET S = 0 
240 FOR I - 1 TO 4 
250 FOR J = 1 TO 6 
260 LET S » S. + V(I,J) 

270 NEXT J 

280 NEXT I 

290 FOR K = 1 TO 32 

300 PRINT 

310 NEXT K 

320 PRINT "A VENDA TOTAL DA SEMANA E: O"; S 
330 FOR K = 1 TO 32 
340 PRINT "$"; 

350 NEXT K 
360 STOP 

Sugestão :■ 

Aplique o programa "VENDA TOTAL" para os 
dados da Tabela 5. 
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Tabela 5 


Como se poderia modificar o programa "VEN¬ 
DA TOTAL" para que saia a sigla de cada dia com tres 
letras (por exemplo SEGUNDA seria indicada por 
SEG) e o nome do vendedor com ate 8 letras? 


Resposta: 

Basta "enxertar" o programa "VENDA TOTAL" 
com as instruções 


1 DIM D $ C.6,3 ) 

3'FOR I = 1 TO 6 

4 INPUT D $ (I) 

5 NEXT I 

15 DIM N$ (4,8 ) 

16 FOR N = 1 TO 4 

17 INPUT N$CN) 

18 NEXT N 


Ê evidente que agora na linha 120 no lu¬ 
gar da variãvel numérica simples D vai aparecer a 
variável coletiva alfabética D$(.D) e na linha 200 
no lugar da variãvel numérica simples N aparecera 
a variãvel coletiva STRING N$(N), 




14. COMPRA DE CARPETE 



Escreva um programa que utilize uma subro 


tina para calcular o preço do carpete colocado na 
sua casa. 

Suponha que existem quatro tipos de car¬ 
pete e cada um tem um desconto que e uma função da 
quantidade de carpete comprada. 

As condições de pagamento 1, 2 e 3 da Ta¬ 
bela 6 sao por metro quadrado para os primeiros 

2 2 — 

65 m , para o que exceder os 65 m e nao ultrapas- 

2 ... 
sar 120 m e para qualquer quantidade pedida acima 

2 

de 120 m , respectivamente. 

€ assim uma cobrança escalonada ou seja 
^ 2 

se voce quiser comprar 130 m do carpete tipo C en 
tão, em vista dos dados da Tabela 6, teria que gas 
tar 

G = 2350 x 65 + 2000 x55 + (130 - 120) x 1840 = 281150 



lf Faixa 2£ Faixa 3? Faixa 
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Faça uma aplicaçao para uma casa na qual 
você tem cinco quartos com dimensões retangulares 
com os seguintes valores em metros: 


Quarto 

1 

2 

3 

4 

5 

Compri¬ 
mento (C) 

5.11 

3.08 

5.13 

2.65 

4.27 

Largura 

(L) 

4.11 

2.95 

4.84 

3.54 

3.79 


Tabela 7 


Neste programa quer-se que o custo seja 
apresentado com precisão de centavos arredondados 
ou truncados conforme o caso e notar que o pedido 
de compra de carpete deve sofrer um acréscimo de 
12 % em relaçao a area real a ser acarpetada devido 
as perdas nos còrtes. 

E tem centavos no Brasil?!? 

Espero que algum dia voltem (os centavos) 

Al vai o programa "CUSTO DO CARPETE" 


5 DIM P(4,3) 

10 PRINT "ENTRADA DOS PREÇOS DO CARPETE" 
15 FOR K = 1 TO 4 
20 FOR D = 1 TO 3 
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25 INPUT P(K,D) 
30 NEXT D ~ 
35 NEXT K 


tipo de carpete 

desconto em função da 
metragem adquirida 




40 PRINT 
42 CLS 

45 PRINT "QUANTOS QUARTOS SÃO?" 

50 INPUT N 
55 PRINT "N=";N 
60 PRINT 

65 PRINT "ENTRE PARA CADA QUARTO COM 0 SEU COMPRIMENTO 
(C) G"; 

70 PRINT "E COM A SUA LARGURA (tf* 

80 PRINT 
90 LET A = 0 


95 FOR I = 1 TO N 
100 INPUT C 
110 INPUT L 


Aqui ê feito o cálculo 
da área total ("teóri¬ 
ca") 


120 LET A = A + L * C 

130 NEXT I * 

140 PRINT "ÃREA="; A; "C)M2" 

150 PRINT 

155 LET S = INT(112 * A + .5)/100 

160 PRINT "DEVE-SE COMPRAR S; "ÜM2 DE CARPETE" 
165 PRINT 

170 FOR L = 1 TO 32 
175 PRINT "?"; 

180 NEXT L 

185 PRINT "TIPO DE CARPETE", "CUSTO DO PEDIDO" 

190 LET K * 1 -•— Carpete do tipo A 

200 GOSUB 1000 
205 PRINT 

210 PRINT TAB 7; "A", G 
220 LET K = 2 - 


Carpete do tipo B 
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230 GOSUB 1000 
235 PRINT 

240 PRINT TAB 7; "B", G 

250 LET K ■ 3 -—■ Carpete do tipo C 

260 GOSUB 1000 
265 PRINT 

270 PRINT TAB 7; "C", G 
280 LET K = 4 
290 GOSUB 1000 
295 PRINT 

300 PRINT TAB 7; "D”, G 
310 IF INKEY$ = "" THEN GOTO 310 
320 IF INKEY$ = "S" THEN GOTO 42 
330 STOP 

1000 IF S > = 120 THEN GOTO 1500 
1010 IF S > = 65 THEN GOTO 1400 
1020 LET G = P(K,1) * S 
1030 GOTO 1700 

1400 LET G = 65 * P(K,1) + (S - 65) * P(K,2) 

1410 GOTO 1700 

1500 LET G = 65 * P(K,1) + 55 * P(K,2) + (S - 120)*P(K,3) 
1700 LET G = INT (100 * G + .5)/100 
1710 RETURN 

Comentário: 

O programa é tao lindo que fala por si sõ. 



A Estatística é muito importante na ava- 
liaçao do desempenho de uma turma. 

Você sabia disso? 

Professores frequentemente precisam da me 
dia aritmética (y) e do desvio padrao (a) para po¬ 
der fazer uma analise comparativa sobre o compor¬ 
tamento das diferentes turmas de alunos para as 
quais lecionam e as quais foi aplicada a mesma pro 
v a. 

AÍ vai o programa que permite saber se as 
notas dos alunos (dadas na faixa de 0 a 100 pontos) 
estão na faixa u ±a ou na faixa y ±2a. 

Aí vai o programa: 

10 PRINT "PÊDIA E DESVIO PADRÃO' 1 

20 FOR J = 1 TO 32 

25 PRINT 

30 NEXT J 

32 PAÜSE 300 

35 CLS 

40 PRINT "VAI SE OBTER PARA N ALUNOS A Ü"; 
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42 PRINT "NOTA MÉDIA E O DESVIO PADRÃO" 

45 PRINT 
50 PRINT 

52 PRINT "ENTRE COM O N0MERO DE ALUNOS 
55 INPUT N 
58 PRINT "N= N 
60 DIM N$ (N,7) 

70 DIM N(N) 

80 FOR I = 1 TO N 
90 INPUT N$(I) 

100 INPUT N (.1) 

110 NEXT I 
120 GOSUB 1000 

130 PRINT "VOCÊ QUER QUE EU (TK-85) IMPRIMA OS NOMES E AS 
NOTAS (S/N)?" 

140 INPUT R$ 

150 IF R$ = "S" THEN GOTO 200 

160 GOTO 2000 

200 PRINT "NOME", "NOTA" 

205 PRINT 

210 FOR I = 1 TO N 

220 PRINT N$(I), N(I) 

230 NEXT I 
235 PAUSE 333 
240 GOTO 2000 
1000 LET T = 0 
1005 LET S2 = 0 
1010 FOR J = 1 TO N 
1020 LET T = T + N(j) 

1030 LET S = N(J) ** 2 
1040 LET S2 = S2 + S 
1050 NEXT J 
1060 LET M = T/N 


O tamanho máximo de 
cada nome e de 7 ca 
racteres 
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t 070 LET M = INT (M * 100 + .5) / 100 
1075 PRINT 

1080 PRINT "A MÉDIA DA CLASSE E :Q"; M 

1090 LET D = SQR (S2/N - M**2)-— 

1100/íLET D = INT(D*100 + .5)./l00 
1110 PRINT 

1120 PRINT "O DESVIO PADRÃO E:ü"; D 
1130 PRINT 
1140 LET Dl = M + D 
1150 LET D2 = M + 2*D 
1160 LET El = M - D 
1170 LET E2 = M - 2*D 
1175 IF Dl >100 THEN LET Dl = 100 
1180 IF D2 >100 THEN LET D2 - 100 
1185 IF El <0 THEN LET El = 0 
1190 IF E2 < 0 THEN LET E2 - 0 
1200 PRINT "A FAIXA QUE DEVE TER 
PORCENTO DOS ALUNOS É:" 

1210 PRINT 
1220 PRINT "DEO"; El; "QaTÊQ"; Dl 
1230 PRINT 

1240 PRINT "A FAIXA QUE DEVE TER QUASE NOVENTA E SEIS 
PORCENTO DOS ALUNOS E: " 

1250 PRINT 

1260 PRINT "DEO"; E2; "ÜATÉO"; D2 
1270 RETURN 

2000 PRINT "VAI ENTRAR COM OUTRO CONJUNTO DE DADOS (S/N)?" 
2010 INPUT R$ 

2020 IF R$ = "S" THEN GOTO 35 
2030 STOP 


Isto impede que se 
__ tenham notas nega¬ 
tivas ou maiores 
que 100 pontos 


ASE SESSENTA E NOVE 


Esta e uma for¬ 
mula aproximada. 
Veja porque ,no li¬ 
vro "Probabilidades 
e Estatística para 
Engenharia"-vol. 1 
de Victor Mirshawka 






88 

Teste o programa "MÉDIA E DESVIO PADRAO" 
para os seguintes dados (Tabela 8). 


Nome 

Nota 

Victor 

95 

Sérgio 

85 

Sacha 

80 

- 

Nilza 

75 

Teteu 

45 

Nippa 

95 

Faf á 

49 

Tito 

70 

Pot i 

63 

Thais 

98 

Dulce 

74 

Vicky 

83 

Alternar 

59 


Tabela 8 

O.I. - Ê muito importante saber colocar em ordem 
alfabética uma lista de clientes, amigos, fornece¬ 
dores ou porque nao alunos. 

Na FEFAAP por exemplo, nao existe nenhuma tur 
ma com mais de 110 alunos e com o programa "Ordena 
dor alfabético' 1 do Renato Degiovani que saiu no 
N9 17 da Micro Sistemas (fevereiro/1983) voce con¬ 
segue o objetivo de ordenar palavras de ati 20 le¬ 
tras . 

Alias o programa de Renato Degiovani permite 
ordenar ate 300 nomes de nao mais que 20 caracte- 



letras todas distintas de uma palavra de apenas 4 
letras de todas as formas possíveis. 

Obteremos dessa forma todos os anagramas 
possíveis. 

Como teste do programa aplique o mesmo nu 
ma das mais lindas palavras que é 

AMOR 

E podia ter teste melhor? 

Aí vai o particular e interessante progra 

ma: 

5 CLS 

7 DIM L$(4) 

10 REM ANAGRAMA PARA QUATRO LETRAS 
20 PRINT "FORNEÇA QUATRO LETRAS QUAISQUER;" 

30 PRINT 
40 INPUT L$(1) 

42 INPUT L$(2) 

44 INPUT L$(3) 

46 INPUT L$(4) 


res 




90 
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50 PRINT 

60 FOR I = 1 10 4 

70 FOR J = 1 TO 4 

80 IF J = I THEN GOTO 150 

90 FOR K = 1 TO 4 

100 IF K = I THEN GOTO 140 

110 IF K - J THEN GOTO 140 

120 LET L = 10 - (I + J + K) 

130 PRINT L$(I); L$(J); L$(K); L$(L);"C] n ; 

140 NEXT K 

150 NEXT J 

160 NEXT I 

170 STOP 


b) Será que você pode obter o numero to¬ 
tal de anagramas ou seja permutações distintas que 
se pode ter com as letras de uma palavra de N le¬ 
tras todas diferentes entre si? 


Resposta: 


Se você nao pode, sera então ajudado nis¬ 


to I ; . 


..AÍ vai o programa que permite obter a res 


posta: 


10 INPUT P$ 

20 SCROLL 

25 LET A = 1 

30 FOR J * 2 TO LEN P$ 

35 LET A = A * J 
40 NEXT J 

45 PRINT'AT 19,0; "EXISTEM!!)";A; "OPERMUTAÇÕES DIFERENTES"; 


50 PRINT AT 20,0; "OCOM AS 
60 FOR S = 1 TO 5 
70 SCROLL 

80 NEXT S ---— 

90 GOTO 45 


LETRAS DA PALAVRAO"; P$ 

Linda forma de saltar linhas 
e abrir um espaço entre as 
mensagens consecutivas. Você 
, nao acha? 


c) Vamos agora apresentar um programa no 
qual ê dada uma palavra (P$) e a seguir sorteiam- 
se algumas letras da mesma constituindo-se uma no¬ 
va palavra N$ q U e e impressa em duas colunas dis¬ 
tintas. 

Alem disso imprime-se a palavra original 

Você deve observar a impressão e no momen 
to que P$ coincidir com N$ o programa pára automa- 
t icamente. 

Não convêm entrar com palavra de mais de 
8 letras pois ira demorar muito para ocorrer acoin 
cidência e a saída na tela fica prejudicada... 

10 PRINT "ENTRE COM UMA PALAVRA" 

20 INPUT P$ 

30 DIM N$(LEN P$) 

40 FOR J = 1 TO LEN P$ 

50 LET A = INT (RND * LEN P$ + 1) 

60 IF N$ (A) < > "O" THEN GOTO 50 
70 LET N$(A) = P$(J) 

80 NEXT J 
90 SCROLL 

100 PRINT AT 19,0; N$; TAB 11; P$; TAB 23; N$ 

110 IF N$ = P$ THEN GOTO 200 
120 GOTO 30 
200 STOP 
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Comentário: 

Serã que você consegue introduzir um con¬ 
tador para saber quantos sorteios foram feitos ate 
ocorrer a desejada coincidência entre N$ e P$? 

Resposta: 

Essa antes de mais nada ê uma boa suges¬ 
tão para se criar um jogo a ser apresentado na te¬ 
levisão e quanto mais ''linhas aparecerem maior se 
rã o prêmio atribuido ao participante. 

Para essa contagem introduza as instru¬ 
ções 

5 LET L = 0 

85 LET L = L + 1 

200 PRINT AT 21,10; "L = "} L; 

210 STOP 


□ linhas 



tar o angulo e dado em radianos e e convertido para 
graus, minutos e segundos. 

Aliás este programa é muito util para o 
programa que vem a seguir e que se chama "INCÓGNI¬ 
TAS DE UM TRIÂNGULO". 

5 CLS 

10 PRINT "CONVERSÃO ANGULAR: RADIANOS PARA GRAUS" 

15 FOR K = 1 TO 4 
20 PRINT "RAD-GRA*"; 

25 NEXT K 
28 PRINT 

30 PRINT "ENTRE COM 0 ÂNGULO EM RADIANOS" 

40 INPUT R 

42 PRINT "CONVERSÃO DO ÂNGULO EM RADIANOS PARA SEGUNDOS" 

45 LET A = 648000 * R/PI 
50 PRINT "A= A 

60 PRINT "CÃLCULO DO NÜMERO TOTAL DE GRAUS" 

70 LET T = INT(A/3600) 

80 PRINT "T= T 

90 PRINT "CÃLCULO DO NÜMERO DE VOLTAS COMPLETAS DESCRITO" 
100 LET V = INT ‘ (T/360) 
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110 PRINT V 

120 PRINT "CÁLCULO DO ÂNGULO EM GRAUS DENTRO DE 360 GRAUS" 
125 PRINT 

127 LET G = T - 360 * V 
130 PRINT m GRAUS=G"; G 
140 PRINT 

145 PRINT "CÁLCULO DOS MINUTOS" 

150 LET M = INT((A - T * 3600) / 60) 

155 PRINT "MINUTOS =0"; M 
160 PRINT 

165 PRINT "CÁLCULO DOS SEGUNDOS" 

170 LET S = A - 3600 *T -(INT ((A - T * 3600) / 60)) * 60 
175 LET S = INT(100 * S + .5)/100 
180 PRINT "SEGUNDOS = 0"; S 
185 PRINT 

190 PRINT "BEM, AÍ VAI A CONVERSÃO FINAL" 

200 PRINT "UM ÂNGULO DE O"; R; "ORADIANOSQE OlGUALO A:" 
210 PRINT 

215 PRINT G; "OGRAUSO" ;M; "QmINUTOSD" »S ; " QSEGUNDOS 
220 PRINT 
230 PRINT 

235 PRINT "VOCÊ QUER OUTRA CONVERSÃO (SIM/NÃO)?" 

240 INPUT R$ 

250 IF R$ = "SIM" THEN GOTO 5 
260 STOP 

b) No programa que vem imediatamente a se 
guir converte-se um ângulo dado em graus, minutos 
e segundos para um em radiano.s. 

5 CLS 

10 PRINT "CONVERSÃO ANGULAR: GRAUS PARA RADIANOS" 

18 FOR J = 1 TO 2 
20 FOR K = 1 TO 2 


25 PRINT "GRAU-RAD*"; 

28 NEXT K 
30 NEXT J 
40 PRINT 

45 PRINT "ENTRE COM UM ÂNGULO EM GRAUS (G), MINUTOS(M) 
SEGUNDOS(S)" 

50 INPUT G 
60 INPUT M 
70 INPUT S 

80 LET A = G + M/60 + S/3600 
85 PRINT 

90 PRINT "CÁLCULO DO NÚMERO COMPLETO DE CÍRCULOS" 

100 LET V = INT (A/360) 

105 PRINT 

110 PRINT "CÁLCULO DO ÂNGULO DENTRO DE 360 GRAUS" 

115 LET R = A * .01745329 - V*6.2831853 
120 PRINT "RADIANOS"; R 
125 PRINT 
130 PRINT 

135 PRINT "PORTANTO□"; G; "QGRAUSQ"; M; "GmINUTOSG"; 
S; " O SEGUNDOS O"; 

140 PRINT "VALEMO"; R; "□ RADIANOS" 

142 PRINT 

145 FOR J = 1 TO 2 
150 FOR K = 1 TO 2 
155 PRINT "GRAU-RAD*"; 

160 NEXT K 
165 NEXT J 
167 PRINT 

170 PRINT "VOCÊ QUER OUTRA CONVERSÃO (SIM/NÃO)?" 

130 INPUT R$ 

190 IF R$ = "SIM" THEN GOTO 5 
200 STOP 

0 programa estã tao explicado nos "PRINT 
que não exige nenhum comentário adicional, nao e? 




18. INCÓGNITAS DE UM TRIÂNGULO 



calculam-se as tres "partes" de um triângulo, des¬ 
de que sejam dadas as outras três. 


Para que se possa resolver o problema sa¬ 
bemos da Geometria e da Trigonometria que ap menos 
um dos tres dados deve ser um lado. 

Existem dessa maneira cinco possibilida¬ 
des para os dados de entrada 

1) angulo, lado, angulo ALA 

2) lado, angulo, lado — LAL 

3) angulo, ângulo, lado AAL 

4) lado, lado, ângulo LLA 

5) lado, lado, lado —LLL 

Os dados devem sempre entrar na ordem em 
que aparecem nos "agrupamentos" indicados acima ou 
no sentido horário ou no sentido anti-horário. 

Os ângulos devem entrar em radianos e as 
respostas serão também em radianòs (rad). 

Aí vai q "programão". 
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5 CLS 

10 PRINT "PARTES DE UM TRIÂNGULO" 

15 PRINT 

20 FOR J = 1 TO 4 
25 PRINT "*TRIAN**”; 

30 NEXT J 
40 DIM A(3) 

50 DIM L(3) 

60 PRINT 

65 PRINT "SÂO RESOLVIDOS OS SEGUINTES PROBLEMAS " 
70 PRINT 

75 PRINT "1-ALA, 2-LAL, 3-AAL, 4-LLA, 5-LLL" 

80 PRINT 

85 PRINT "ENTRE COM O TIPO (T) DE PROBLEMA QUE QUER 
RESOLVER" 

90 INPUT T 

100 IF T = 5 THEN GOTO 450 

110 IF T = 4 THEN GOTO 330 

120 IF T = 3 THEN GOTO 290 

130 IF T = 2 THEN GOTO 220 

140 IF T = 1 THEN GOTO 160 

150 IF T <1 OR T > 5 THEN GpTO 90 

160 PRINT "ENTRE COM ÂNGULO, LADO, ÂNGULO" 

170 INPUT A(l) 

173 INPUT L(3) 

175 INPUT A(2) 

180 LET A(3) = PI - AU) - A(2) 

190 LET L(l) = L(3) * SIN A(l) / SIN A(3) 

200 LET L(2) = L(3) * SIN A(2) / SIN A(3) 

210 GOTO 500 

220 PRINT "ENTRE COM LADO, ÂNGULO, LADO" 

230 INPUT L(3) 

233 INPUT A(l) 

237 INPUT L(2) 
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240 LET L(l) = SQR (L(3) * L(3) + L(2) * L(2) - 2*L(3)* 
L(2)* COS A(l)> 

250 LET X = SIN A(l) 

260 LET A(2) = ASN X 
270 LET A(3) = PI - 
280 GOTO 500 
290 PRINT "ENTRE COM ÂNGULO, ÂNGULO, LADO" 

300 INPUT A(3) 

303 INPUT A(2) 

307 INPUT L(3) 

310 LET A(1) = PI - A(2) - A(3) 

320 GOTO 190 

330 PRINT "ENTRE COM LADO, LADO, ÂNGULO" 

340 INPUT L(l) 

343 INPUT L(2) 

347 INPUT A(l) 

350 LET Y = L(2) * SIN A(l) 

360 IF L(l) <Y THEN GOTO 580 

365 LET L(3) = SQR (L(2) * L(2) - Y*Y) 

370 LET Z = SQR (L(l) * L(l) - Y*Y) 

380 PRINT "VOCÊ QUER O ÂNGULO A(2) AGUDO (A) OU OBTUSO(O)?" 
390 INPUT R$ 

400 IF R$ = "A" THEN GOTO 430 

410 LET L(3) = L(3) - Z 

414 LET W = SIN A(l) / L(l) * L(2) 

416 LET A(2) = PI - ASN W 
420 GOTO 270 
430 LET L(3) = L(3) + Z 
440 GOTO 250 

450 PRINT "ENTRE COM LADO, LADO, LADO" 

460 INPUT L(l) 

463 INPUT L(2) 

467 INPUT L(3) 
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470 LET W = (L(2)*L(2) + L(3)*L(3) 

L(3)) 

480 LET A(1) = ACS W 

\ __ 

490 GOTO 250 
500 PRINT 

505 FOR I = 1 TO 3 
510 IF A(I) <0 THEN GOTO 580 
520 PRINT "LADO O"; I; INT(L(I) * 1000 + .5)/1000 

| 530 PRINT"ÃNGULO OPOSTO ="; INI (A(I) * 1000 +.5)71000; 
"Oradianos" 

540 NEXT I 
545 GOTO 650 
550 FOR J = 1 TO 4 
560 PRINT "*TRIAN**"; 

570 NEXT J 

580 FOR K = L TO 32 

590 PRINT 

600 NEXT K 

610 PRINT "NÃO TEM SOLUÇÃO" 

620 FOR K = 1 TO 32 
630 PRINT 
640 NEXT K 

650 PRINT "VOCÊ QUER ENTRAR COM OUTROS DADOS (SIM/NÃO)?" 
660 INPUT R$ 

670 IF R$ = "SIM" THEN GOTO 5 
680 STOP 


- L(1)*L(1))/(2*L(2)* 



Essa e a forma de escre 
ver arco cosseno no 
BASIC do TK.-85 


Sugestão: 


Aplique esse programa para as seguintes 
situações particulares. 

1) ALA - A(l) = 0.57, L(3) = 795, A(2) = 0.43 

2) LAL — L(3) = 289, A(l) = 1.62, L(2) = 601 

3) AAL — A(3) = PI/3, A(2) = Pl/4, L(3) = 350 

4) LLA — L(l) = 309, L(2) = 360, A(l) = 0.36 (com A(2)agudo) 

5) LLL — L(l) = 5, L(2) = 4, L(3) = 3. 





19. TETRAEDRO E 
OCTAEDRO 



a) Vamos fazer inicialraente um programa 


que permita obter a área da superfície e o volume 
de um tetraedro regular desde que se conheça o com 
primento da aresta (A). 

Quer-se que estes dois numeros sejam indi 
cados com três casas decimais e para isto deve-se 
ter no programa uma subrotina que p.ermita esse ar¬ 
redondamento . 

Lembre que a ãrea da superfície (S) e o 
volume do tetraedro (V) sao dados pelas formulas 

e 

Entre com A = 10 para obter uma solução 
particu1 ar. 

0,1. Sao esqueça que existe o livro "TK-2000 na 
Matemática" do mesmo autor onde todos os problemas 
matemáticos sao "destrinchados" no maravilhoso TK- 
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10 INPUT A 

20 LET X = SQR 3 * A ** 2 
30 GOSUB 1000 

40 PRINT "A ÃREA DA SUPERFÍCIE 
50 LET X = SQR 2 / 12 * A ** 3 
60 GOSUB 1000 

70 PRINT "0 VOLUME DO TETRAEDRO REGULAR Ê : X 

80 STOP 

1000 LET Z = ABS (X * 10 ** 3 + 0.5) 

1010 LET X = INT Z / 1000 
1020 RETURN 

Caso voce execute o programa para A = 10 

ob t eri: 

A ÃREA DA SUPERFÍCIE É :173.205 
O VOLUME DO TETRAEDRO REGULAR Ê : 117.851 


b) Agora além do tetraedro queremos tam¬ 
bém a ãrea da superfície e o volume do octaedro re 
gular. 

As respostas devem vir com quatro casas 
decimais e as formulas para o octaedro sao: 


e 

AÍ vai o programa: 


„ /T 3 
v = — a 


S = 2 /T a 2 


10 INPUT A 

15 PRINT "A ÃREA DO TETRAEDRO É 


20 LET C = 1 
30 GOSUB 1000 
35 PRINT "0 VOLUME 
40 LET D = 12 
50 GOSUB 2000 


DO TETRAEDRO É 


55 PRINT "A ÃREA DO OCTAEDRO Ê 
60 LET C = 2 
70 GOSUB 1000 
80 LET D = 3 

85 PRINT "0 VOLUME DO OCTAEDRO fi 
90 GOSUB 2000 
100 STOP 

1000 LET X = C * SQR 3 * A ** 2 
1010 GOSUB 3000 
1020 RETURN 

2000 LET X = SQR 2 / D * A ** 3 
2010 GOSUB 3000 
2020 RETURN 

3000 LET Z = ABS(X * 10 ** 4 + .5) 

3010 LET X = INT Z / 10000 

3020 PRINT X 

3025 PRINT 

3030 RETURN 


Comentário: 

Com o mesmo "estilo" você pode obter os 
programas que executem os ; calculos da ãrea late¬ 
ral e do volume de outros solidos de interesse co¬ 
mo por exemplo o cone, a esfera, o toro, o elipsoi 
de, etc. 






20. AREA DE UM POLÍGONO 



Com o programa "ÃREA DE UM POLÍGONO" cal¬ 


cula-se, como não poderia deixar de ser a ãrea de 
um polígono. 

Você jã viu ura programa com um nome que 
"caia" melhor" 

Ê evidente, que voce dede fornecer as co¬ 
ordenadas (x,y) de todos os vértices (veja a Figu¬ 
ra 5 ) . 

As coordenadas devem entrar todas era or¬ 
dem sucessiva dos vértices, isto ê obedecendo a 
lei de formaçao indicada na formula (1) 

ÃREA = 


Cxi+x 2 )(yi-y 2 ) + (x2+X3) (y 2 -y 3 )+<x 3 +x 4 ) (y 3 -y 4 ) + .-. .+ 



Ai vai o programa: 

10 PRINT "ÃREA DE UM POLÍGONO" 
20 FOR I = 1 TO 3 
30 PRINT "**P0LÍG0N0"; 

40 PRINT 
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50 PRINT "ENTRE COM O NÚMERO DE VÉRTICES" 

60 INPUT N 
70 LET M = N + 1 
80 DIM X(M) 

90 DIM Y(M) 

100 FOR I = 1 TO N 
110 INPUT X(T) 

120 INPUT Y(D 
130 NEXT I 

140 PRINT "NÃO ESQUEÇA QUE NA FÚRMULA DADA O ÚLTIMO VÉRTICE 
SERVE COMO PRIMEIRO" 

150 LET X(N+1) « X(l) 

160 LET Y (N+l) = Y(l) 

170 LET A * 0 
180 FOR I = 1 TO N 

190 LET A » A + (X(I) + X(I+D) * (YCI) - Y(I+1)) 

200 NEXT I 

210 PRINT "ABSCISSA”, "ORDENADA" 

220 FOR I = 1 TO N 

225 PRINT "X(";l;"> ="; x(l), "Y(";I;") ="; YCD 
230 NEXT I 
240 PRINT 

250 PRINT "ÃREA="; ABS(A/2) 

260 FOR I - 1 TO 16 
270 PRINT "BB"; 

280 NEXT I 

290 PRINT "VOCÊ QUER ENTRAR COM OUTROS DADOS (S/N)?" 

300 INPUT R$ 

310 IF R$ < >"S" THEN STOP 
320 GOTO 50 







linear. 

Porém nos cursos universitários é impres¬ 
cindível conhecer a interpolação polinomial (algé¬ 
brica) e muitas vezes até a interpolação trigonome 
trica. 

No nosso caso específico» dados dois pon¬ 
tos P^x^y-^) e ?2^ x 2* y 2^ vamos obter o valor de y 
para um dado valor de x sendo que <x <X 2 (veja 
a Figura 7) . 



Figura 7 
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Para se obter y deve-se aplicar a formula 



5 CLS 

10 PRINT "INTERPOLAÇÃO LINEAR" 

20 FOR J « 1 TO 8 
25 PRINT "X?Y?"; 

30 NEXT J 
35 PRINT 

40 PRINT "ENTRE COM O PRIMEIRO PONTO" 

45 INPUT XI 
50 INPUT Y1 

55 PRINT "ENTRE COM O SEGUNDO PONTO" 

60 INPUT X2 
65 INPUT Y2 

70 PRINT "ENTRE COM O VALOR (X) PARA O QUAL QUER O VALOR 
INTERPOLADO" 

80 INPUT X 

90 IF XI < >X2 THEN GOTO 120 

100 PRINT "NÃO BRINQUE COMIGO, ENTRE COM VALORES CORRETOS" 
110 GOTO 45 

120 LET Y = Y1 + ((X-Xl) * (Y2-Y1))/(X2-X1) 

130 LET Y = INT (Y*1000 + .5)/1000 
140 PRINT "O VALOR QUE SE QUER É Y ■ Y 
150 FOR K = 1 TO 8 
160 PRINT "OBA*"; 

170 NEXT K 

180 PRINT "VOCÊ QUER MAIS INTERPOLAÇÕES ENTRE OS MESMOS 
PONTOS (S/N)?" 

190 INPUT R$ 

200 IF R$ = "S M THEN GOTO 70 
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210 PRINT "VOCÊ QUER INTERPOLAR ENTRE OUTROS PONTOS 
(SIM/NÃO)?" 

220 INPUT N$ 

230 IF N$ = "SIM" THEN GOTO 5 
240 STOP 

Sugestão: 

No nosso livro "Exercícios de Calculo Nu¬ 
mérico" encontra-se uma tabela que relaciona a so¬ 
lubilidade da agua no oleo mineral em partes por 
milhão a temperatura y (em graus centígrados). 


X 

30 

130 

230 

330 

430 

530 

y 

15 

50 

66 

76 

82 

87 


Tabela 9 

Com o auxílio do programa "INTERPOLAÇÃO" 
preencha a Tabela 10. 


X 

78 

110 

245 

415 

5^8 

y 

? 

1 

? 

? 

? 


Tabela 10 







nosso 


livro Pesquisa Operacionai(voíTTT' 
fazemos a analise de vários modelos de est.oque. 

Naquele livro procuramos tornar bem evi¬ 
dente que para entender um modelo de estoque ê ne¬ 
cessário ter entre outras coisas o conhecimento do 
valor do capital investido» o lucro marginal sobre 
um dado produto» ter uma ideia sobre o futuro mod 
lo do fornecimento de matéria prima e principalme 
te a demanda sobre os bens. 

Alem disso voce deve lembrar que qualquer 
sistema que voce use para obter informação para 
controlar estoque custará "algo” para poder ser 
posto em prática. 

0 meu amigo Ary da Livraria Nobel que o 

diga!?: 

Embora existam tres tipos distintos de 
analise de estoques no mundo dos negócios — o da 
matéria prima» o de produtos componentes e o de 
produtos acabados - todos tem algumas caracterís¬ 
ticas semelhantes. 

Em todos os casos há necessidade de reno¬ 
vação, que nem sempre é imediata. 


(UI oi 
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0 restabelecimento de estoques através de 
pedidos custa dinheiro e alem disto quando se in¬ 
corre em falta de estoque aparecem grandes custos 

de penalização ou seja de falta. 

No programa "ESTOQUE" apresentamos um mo¬ 
delo muito simples e aplicado para o caso de com¬ 
pra de matéria prima. 

Esse programa entretanto capacita voce pa 

ra construir e entender modelos de estoque bemmais 
complicados. 

Suponhamos que o estoque inicial e de E 
= 84 unidades, que a demanda no decurso de uma se¬ 
mana é de D = 8 unidades, que o período de renova 
çâo é P = 7 semanas quando se encomendam sempre 

R = 36 unidades. 

Com o programa "ESTOQUE" veremos o que 
ocorre a medida que se vai consumindo o estoque 

pois o mesmo nos mostra se ê ou nao e necessário 
renovar o estoque, se temos falta ou nao d-e esto¬ 
que e qual e a nossa situação em cada semana. 

0 programa dã essa previsão para 48 sema¬ 
nas ou seja quase para o ano todo. 

Bem aí vai o programa: 

10 LET E = 84 
20 LET 0=8 
30 LET P = 7 
40 LET R = 36 
50 FOR T = 1 TO 48 
60 LET E = E - D 

70 IF INT(T/P) = T/P THEN GOTO 90 
80 GOTO 100 
90 LET E = E + R 


100 GOSUB 400 
110 NEXT T 
120 STOP 

400 IF E <-16 THEN GOTO 420 
410 GOTO 440 

420 PRINT " <-16"; "□ 0 " 

430 GOTO 660 

440 IF E > 64 THEN GOTO 480 
450 GOTO 480 

460 PRINT TAB 5; "0 " > 64" 

470 GOTO 660 

480 IF E <0 THEN GOTO 493 
490 GOTO 530 

493 LET I s* INT (ABS(E/4)) 

495 FOR K = I TO 1 STEP -1 
500 PRINT TAB (5 - K); 

505 NEXT K 

510 PRINT TAB 5; M @" 

520 GOTO 660 

530 PRINT TAB 5; " 0 "; 

540 LET I = INT (E/4) 

545 IF I = 0 THEN GOTO 660 

550 FOR K = 1 TO I 

560 PRINT 

570 NEXT K 

660 RETURN 




Neste programa o seu TK-85 irã imprimir um 
numero escolhido aleatoriamente com nove algaris¬ 
mos todos distintos entre si (excluído o zero) e 
você deve se comunicar com o TK-85 dando-lhe ins¬ 
truções para inverter a ordem digamos dos cinco pri 
meiros algarismos que estão a esquerda para se ob¬ 
ter no menor "tempo" possível ou melhor com o me¬ 
nor número de trocas o número todo escrito na for¬ 
ma 

123456789 


Se por exemplo o seu TK—85 imprimir ini— 

ciaímente 


385197642 


e caso voce entre com 5, ele ira inverter a ordem 
dos cinco primeiros algarismos da esquerda para a 
direita e voce tera o número 


915837642 


Agora entrando com o 9 obter-se-a 
246738519 

e dessa forma o 9 ja estã na posição final. 

Agora deve-se fazer a mesma coisa com o 8 
e assim por diante. 
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160 LET T = N 
170 LET U = 1 
180 LET B(U) = A(T) 

190 LET U = U+l 
200 LET T « T-l 
210 IF T < >0 THEN GOTO 180 
220 FOR L = 1 TO N 
230 LET A(L) = B(L) 

240 NEXT L 
250 LET M = M + 1 
260 PRINT 

270 PRINT ''VOCÊ JÍ FEZ CD"; M; "□INVERSÕES" 

280 PAUSE 299 
290 CLS 
295 GOTO 105 

300 PRINT "DEMOROU, MAS VOCÊ CONSEGUIU APCSM; 

"□inversões" 

310 STOP 

70 NEXT J 
80 NEXT K 
90 LET M = 0 

100 PRINT "QUANTOS ALGARISMOS VOCÊ QUER INVERTER?" 

105 PRINT "TECLE UM NÜMERO INTEIRO DE 1 ATÊ 9" 

108 PRINT "AÍ VAI O NÜMERO ATUAL" 

110 FOR J = 1 TO 9 
115 PRINT A(J); 

120 NEXT J 
122 PRINT 

125 PRINT "O SEU NÜMERO JÃ Ê 123456789 (S/N)?" 

130 INPUT R$ 

135 IF R$ = "S" THEN GOTO 300 
140 INPUT N 

150 IF N <1 OR N > 9 THEN GOTO 140 


No programa saíra impresso o numero de ten 
tativas feitas por você até chegar a posição fi¬ 
nal . 

É, como vocé esta vendo caro(a) leitor(a) 
um programa de distraçao. 

Mas no meio de’tantos cálculos bem que 
voce merece um pouco de lazer se bem que ê um "la¬ 
zer numérico". 


10 PRINT "***REVERSO***" 

15 DIM A(10) 

20 DIM B(10) 

25 PRINT 

30 FOR K = 1 TO 9 

35 LET A(K) = INT(RND*9) + 1 

40 IF K * 1 THEN GOTO 80 

50 FOR J = 1 TO K-l 

60 IF A(K) = A(J) THEN GOTO 35 


Ê necessário isto? 


)fr 




0 pendulo e ura corpo pesado, movei etn tor 


no de ura eixo fixo horizontal, eixo de suspensão, 
que nao passa pelo centro de gravidade do corpo pe 
sado. 

Este ê o pendulo dos antigos relogios de 
parede que valeu o nome de ''pêndulo' 1 a esses ins¬ 
trumentos . 

0 prumo, ou o travessao de utna balança são 
também pêndulos. 

Um pêndulo simples seria um ponto mate¬ 
rial a oscilar, suspenso a um ponto fixo e o pêndu 
lo ideal seria aquele que oscila no vácuo e o ponto 
material é ligado ao centro de suspensão por um 
fio de peso desprezível e inextensível. 

Na prática, realiza-se aproximadamente um 
pendulo simples suspendendo-se uma esfera, pequena 
mas muito densa em relação ao peso do fio. 

Qualquer outro tipo de pendulo chama-se 
de composto como ê o caso da balança. 

A primeira aplicaçao do pêndulo foi' 
construção de relogios. 


na 
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Foi Huyghens o primeiro a empregar o pen¬ 
dulo simples para regular o movimento dos reló¬ 
gios . 

Uma segunda aplicação do pendulo foi o 
calculo da aceleração da gravidade. 

Foucault em 1851 realizou uma experiên¬ 
cia no Panthêon de Paris na qual se confirmava a 
rotaçao da Terra de oeste para o leste. 

No convite que formulava aos membros da 
Academia de Ciência para assistirem a experiência 
Foucault escrevia 

"Estais convidados a ver a Terra girar 

Eu os convido a ver um pendulo balançar 
na tela do seu video ou do aparelho de T.V. conec¬ 
tado ao TK-85. 

Execute para isso o seguinte programinha: 

5 REM PÊNDULO 
10 LET K = 10 
15 FOR J * 0 TO 3 STEP .1 

20 FOR I = PI + .5 + *1 TO 2*PT -.5 - J STEP .2 
30 LET L = SIN I * K - 10 
40 LET C ■ COS I * K -15 
50 CLS 

60 PRINT AT 10, 14; "+" 

70 PRINT AT 21, 5; "---" 

80 PRINT AT L, C; "0" 

90 NEXT I 

100 FOR V = 2*PI - .5 - J TO PI + ,5 + J STEP -.2 
110 LET L = SIN V * K - 10 
120 LET C = COS V * K - 15 
125 CLS 
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130 PRINT AT 10, 14; "+" 

140 PRINT AT 21, 5; "---" 

150 PRINT AT L,C;"0" 

160 NEXT V 
170 NEXT J 
180 STOP 

Comentário: 

Pode-se notar que o aumento progressivo 
da variável J faz com que ocorra o amortecimento 
progressivo das oscilações, de forma que depois 
de um certo tempo o pendulo simples para. 




Permita-me caro (a) leitor(a) expressar o 


meu entusiasmo pela ROM do seu TK-85 e isto se com 
provará no lindo programa "GRÃFICOS". 

Com este programa pode-se manipular o grã 
fico de uma ou de duas funções. 

Com este programa manipulando convenien¬ 
temente o mesmo voce poderá ver os dois ramos da 

- 2 _ 
parabola y = x ou a reta y = -x-2 que nao está 

no primeiro quadrante e além disso ter vários pon¬ 
tos locados. 

0 programa "GRÁFICOS" permite: 

. desenhar uma primeira função 
. desenhar uma segunda função 

. desenhar as duas funções ao mesmo tempo e estu¬ 
dar inclusive as intersecções 

♦ deslocar o eixo horizontal (Ox) para baixo ou pa 
ra cima 

. deslocar o eixo vertical (Oy) para a esquerda ou 
para a direita 

. trocar a escala do eixo Ox (abscissas) para um 
fator 2 ou para um fator 1/2 

. trocar a escala do eixo Oy (ordenadas) para um 
fator 2 ou para um fator 1/2 

. não fugir dos limites da "pagina" ou seja da te¬ 
la do vídeo 
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. não atender a comando errado 

. visualizar em qualquer momento os eixos e os fa- 
tores de escala para Ox e Oy 


Voce estimado(a) leitor(a) deve no caso 
geral enviar a sua função y ■ f(x) escrita da se 
guinte forma: -x; 

Y = D * (fC(X-A) / H)) + B 

Assim por exemplo se tiver a função 
y = 4x - 5 no BASIC do seu TK-85 ela serã 

Y = D * (4 * (X -A) / H - 5) + B 

Caso voce tenha a função y = x.senx ela 
em BASIC do seu TK-85 torna-se: 


Y - D * ÇSINC(X-A)/H) * (X-A)/H) + B 


Caso voce tenha uma função potência y “x 
o seu TK-85 não aceitara valores com x <0 e ne 
se caso para garantia se tiver por exemplo y a x 

3 

escreva D*(ABS(X-A)/H)**2 + B e caso tenha y*x 
escreva D*(SGN(X-A) * (ABS(X-A)/H>**3) + B. 

Ja para a parabola completa do 29 grau 

y * x^ - 4x — 7 

deve-se escrever 

Y = D*((ABS(X—A)/H) ** 2 - 4*(X-A)/H-7)+B 


Fica a critério do leitor o uso dessas 
funções e de outras mais simples como y * 7, x *4 
ou ainda mais complexas que saiam da "cuquinha" de 
cada um(a) e elas devem entrar nap linhas 720 e820 
sendo o REM substituído pelo LET. 

Nao esqueça então que o nosso programa e 
geral e você pode ser criativo ao máximo. 


M|CM 
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Alguma coisa mais vai atormentã-fco (la) po 
rem tente por conta própria depois de embutido to¬ 
do o programa "mexer" um pouco nos valores de A,B 
D e H. 

Eles nao precisam ter sempre os valores 
indicados no programa!!! Precisam? 

Uma última " explieaçãozinka" 

Se você teclar: 

"1 M obtem apenas a função Y1; 

"2" obtêm apenas a função Y2; 

M 3” obtêm as funções Y1 e Y2 ao mesmo tempo; 

"X*" multiplica por 2 a escala Ox; 

"X:" divide por 2 a escala Ox; 

"Y*" multiplica por 2 a escala Oy; 

"Y:" divide por 2 a escala Ox. 

Bem o resto fica por sua conta "destrin- 

char" . 

Ai vai o "super-programinha": 

10 LET A = 0 
20 LET B = 0 
30 LET D = 1 
40 LET H = 1 
50 CLS 

60 PRINT "QUAL E A FUNÇÃO QUE VOCÊ QUER? <1> <2> <3>" 

70 INPUT G$ 

80 IF G$ = "1" THEN GOTO 125 
90 IF G$ = "2" THEN GOTO 165 
100 IF G$ = "3" THEN GOTO 205 

110 IF CODE (G$) <29 OR CODE (G$) >31 THEN GOTO 70-1 

com essa linha corrige-se even 
tuais erros de entrada 
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125 GOSUB 300 
130 GOSUB 700 
140 GOSUB 400 
150 GOTO 125 
165 GOSUB 300 
170 GOSUB 800 
180 GOSUB 400 
190 GOTO 165 
205 GOSUB 300 
210 GOSUB 700 
220 GOSUB 800 
230 GOSUB 400 
240 GOTO 205 

300 REM DESENHO DOS EIXOS 
310 CLS 

320 PRINT AT 0,16; "X=X*"; H;’OY=Y*";D 

330 FOR I = 0 TO 63 

340 IF I > 41 THEN GOTO 360 

350 PLOT A, I 

360 PLOT I, B 

370 NEXT I 

380 RETURN 

400 REM AQUI VÃO OS COMANDOS 
410 INPUT A$ 

420 IF A$ = M □" THEN GOTO 410 
430 IF A$ = "X*” THEN LET H = H*2 

440 IF A$ = "X; " THEN LET H = H/2 

450 IF A$ = "Y*" THEN LET D = D*2 

460 IF A$ = "Y:" THEN LET D = D/2 

470 IF A$ = "F” THEN STOP 
480 IF A$ = "C" THEN GOTO 50 
490 LET L * LEN A$ 

500 LET A$ = A$ Cl TO 1) 


510 IF A$ = "D” THEN LET A = A + 4*L 

520 IF A$ = "E" THEN LET A = A - 4*L 

530 IF A$ = "A" THEN LET B = B + 4*L 

540 IF A$ = "B" THEN LET B = B - 4*L 

550 IF A <0 OR B <0 OR A > 63 OR B >41 THEN GOTO 570 
560 RETURN 
570 LET A - 0 

580 LET B = 0 

590 GOTO 410 

700 REM GRÁFICO DA FUNÇÃO F1 
710 FOR X = 0 TO 63 

720 REM Y1 = D*(F ((X-A)/H)) + B- 

730 IF Y1 < 0 OR Y1 > 41 THEN GOtO<750 
740 PLOT X,Y1 

750 NEXT X Entre aqui com as 

w suas funções 

760 RETURN 

800 REM GRÃFICO DA FUNÇÃO F2 
810 FOR X = 0 TO 63 
820 REM Y2 = D*(F ((X-A)/H) +■ B 
830 IF Y2 <0 OR Y2 >41 THEN GOTO 850 
840 PLOT X,Y2 
850 NEXT X 
860 RETURN 




O.I._- No Micro Mundo de novembro de 1983 (N9 9)na 
secção Fontes tem-se um programa simples para re¬ 
presentar graficamente as funções e pronto para 
ser usado no seu TK-85. 

O autor do programa e David Anderson e ele 
novamente destaca o perigo de se representar uma 
função como 

4 3 

y = x + x + x 
como LET Y = X**4 + X**3 + X 
Voce deve reescreve—la como 

LET Y = X*X*X*X + X*X*X + X 
para evitar uma base negativa na exponenciaçao, 






Realmente a grande dificuldade de um pro¬ 
fessor de Ciências é a parte prática. 

Como tal, a Física não foge desse proble¬ 


ma . 


Na maior parte das Escolas os laboratõ- 
rios sao deficientes e existe uma grande dificul¬ 
dade para realizar experiências. 

Hoje devido ao pequeno custo dos micro¬ 
computadores e possível simular um experimento no 
mesmo e a um custo bem pequeno. 

0 uso do micro tornou-se também fundamen¬ 
tal para o controle das experiências, permitindo a 
alteraçao dos parâmetros numéricos de uma forma ex 
tremamente rápida. 

Aliás recentemente na 1? Semana de Compu¬ 
tação promovida pelas Faculdades Objetivo o nosso 
amigo prof. Gustavo Nars deu uma linda exibição 
desta simulaçao em problemas de Química (Lei de 
Boyle-Mariotte) de Física (choque central e não 
central) etc. 

Alias o choque central apesar de ser uma 
experiência clássica, é de difícil realização 
Laboratório, 


no 
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No programa "REBATENDO" fazemos a analise 
do amortecimento de uma esfera que ê lançada con¬ 
tra o solo ou uma superfície horizontal. 

Em função da elasticidade da esfera e do 
plano podem ocorrer saltos de mesma altura ou de 
alturas cada vez menores. 

0 parâmetro que caracteriza a elasticida¬ 
de de um salto chama-se coeficiente âe restitui¬ 
ção e o seu valor R pode variar desde 0 (choque 
anelas tico» no qual toda a energia cinética á dis¬ 
sipada na deformação) ate no máximo 1 (colisão per 
feitamente elástica). 

Aliás um programa como este ja foi lança¬ 
do pelo prof. Pierluigi Piazzi no numero de setem¬ 
bro (1982) da Micro Sistemas. 

Hoje o prof. Pierluigi Piazzi dá uma con¬ 
tribuição muito grande aos "TK—maníacos dirigindo 
a melhor e unica mostra brasileira exclusiva para 
os usuários do TK-85 ou seja a Microhobby. 

0 coeficiente de restituição ê dado pela 

expressão 

fi evidente que evitaremos no programa va¬ 
lores de R>1 visto que isto fisicamente e impos¬ 
sível . 



Aí vai o "programinha": 
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10 PRINT "REBATENDO" 

20 PRINT "R=?" 

30 FOR J = 0 TO 31 
40 PRINT AT 21,J;"0" ; 

50 NEXT J 
60 INPUT R 
70 PRINT AT 1,4; R 
80 LET V0 = 82 
90 LET K = 0 
100 LET T = 9 
110 GOTO 120 
115 LET T = 0 

120 LET X = K 

125 IF X > 63 THEN STOP 
130 LET y = (20 + V0 * T - 4,9 * T ** 2)/10 

140 IF Y< = 1.5 THEN LET V0 = V0 * R 

150 IF Y < = 1.5 THEN GOTO 115 
160 PLOT X,Y 
170 LET T = T + 1 
180 LET K = K+l 
190 GOTO 120 



0.1.1 - Do meu antigo e o mais brilhante professor de Física 


que tive eng. Tore Nils Olof Folmer-Johnson áprendi que as 


equações do movimento balístico sao: 
Projeção horizontal 




Figura 8 
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Projeção vertical 


a = -g 

y & 

v = v - gt 

y oy 

g . 2 

y = y + v t - -w- . t 
J J o oy 2 


Em qualquer instante a velocidade v do pro 
jetil ê a soma das componentes horizontal (v ) e 
vertical (v^) e tem-se que o modulo e igual a 

2 2 2 2 
v = v x + v y = v q - 2g y 


visto que 


V = V COS 0 
ox o o 


v = v sen 0 
oy o o 


(ângulo de lançamento) 


No caso particular em que a origem do re¬ 
ferencial (veja a Figura S )coincida com o ponto ou 
seja a posição inicial do projétil (0 = P o ) a equa¬ 
ção da trajetória se simplifica consideravelmente 
tornando-se: 


y = x tg 9 0 - 2 - -2- X 

2v cos- 0 
o o 

Outras grandezas características do movi¬ 
mento balístico sao: 


A flecha da trajetória e: 


2 2 Ü 
v sen 9 
o o 


0 alcance ê; 


v sen 20 
o o 
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0.1. 2-0 coeficiente de restituição da o grau de 
aproximaçao da elasticidade perfeita de dois cor¬ 
pos que colidem e é definido como sendo a relação 
entre a velocidade relativa depois da colisão e a 
velocidade relativa antes da colisão. 

Quando se deixa cair uma bola sobre uma 
chapa fixa que a rebate, a bola de fato chocou-se 
com a Terra. 

A massa da Terra e tao grande que a sua 
velocidade fica na prática inalterada e pode-se a- 
dotar que o coeficiente de restituição á 



A velocidade relativa antes da colisão e 
simplesmente a velocidade adquirida em queda livre, 
de uma altura h^(ou y^) valendo /2gh^. 

Se depois da colisão, a bola sobe a uma 
altura de h^ (ou y a velocidade relativa depois 
da colisão é - v2 gh^" (considerando-se como posi 
tivo o sentido para baixo). 

Portanto o coeficiente de restituição e: 



e e bem simples obte-lo, por meio da medida 


das 
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duas alturas. 0 valor obtido representa uma pro¬ 
priedade conjunta da bola e da superfície. 

Eu sei, eu sei, eu sei... 

Emocionei -me com a Física e o livro ê de 
aplicações no TK—85 através do uso da linguagem 
BASIC. 

Porem essas noçoes serão úteis também no 
programa seguinte que se chama "PROJÉTIL" (N? 27). 

Além do que é bom que todos saibam que po 
demos e devemos usar muito a linguagem BASIC na 
Matemática, na Física e na Química. 

E aí vai um comercial... 

0.I. 3 - Aguarde para bem breve o TK-2000 na Mate¬ 
mática, na Física e nas Ciências em geral. 

Sim serã o proximo livro. 

Se você vive a metade do ano de 1984 en¬ 
tão ele ja existe ou seja o TK-2000 e os livros 
correspondentes. 

0«I« 4 - Na revista Microhobby, a única revista es 
pacífica para os usuários do TK no número 1 encon- 
tra-se o programa,"Desenho" de Lu^s Fernando B. P. 
Mello Barreto e com ele você pode também fazer de¬ 
senhos incríveis. 

0.1. 5 - Na Microhobby N9 2 (junho de 1983) o esti 
mado(a) leitor (leitora) encontra como programa do 
mes um que permite a obtenção de uma série de c^ir- 
vas isotérmicas de um gãs ou seja desenha o dia¬ 
grama de Clapeyron. 



19 CASO: 

0 seu -irmãozinho caçula (que promete ser 
um verdadeiro monstro) tem um canhão de brinque¬ 
do, de angulo variavel e que atira bolas de gude 
com velocidade 2 m/s. 
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Ele armou o canhao em frente a sua mesa 
que tem um vidro em cima. 

Conseguira o seu. super-irmao e herói que¬ 
brar o seu vidro? 

29 CASO: 

Voce quando era criança nunca le^ou uma 
surra (entre tantas outras) por ter lançado uma bo 
la com trajetória inconveniente e quebrou o vidro 
da janela da sua vizinha? 



Figura 10 

29 CASO: 

Voc£ jã nao viu os bombeiros colocarem as 
mangueiras na posição correta para atingirem com 
precisão "milimétrica" a janela onde esta o fogo? 



e 


vamos 
o seu 


Bom chega de exemplos e de 
a uma aula completa de Física 
programa "PROJÉTIL” 


recordações 
via TK-85 com 


10 CLS 

20 LET V = 175 


Velocidade inicial 



30 LET F = 57.29578 
40 LET A = 45 
50 LET C = V*SIN(A/F) 

60 LET Cl = V*C0S (A/F) 

80 FOR T = 0 TO 30 STEP .5 
90 LET X = C1*T 
100 LET Y = C*T - 4.905*T*T 
180 LET X = X/50 
190 LET Y = Y/50 
200 PLOT X,Y 
220 NEXT T 



Fator para transformar o ãn 
guio que entra em graus em 
radianos 


lançamento inicial 
a 45° 

Veja° as explicações 
dadas no fim do pro 
grama "REBATENDO” 


0.1. - Voce ja sabe que com A = 45° voce tem o al 
cance mãximo!!! 

Caso voce nao acredite, pegue uma manguei 
ra no jardim e comprove na pratica, porém cuidado 
com a "pressão" da agua e as dimensões do seu jar¬ 
dim (caso ele exista)!!! 


Vamos fazer algumas mudanças nesse progra 
ma permitindo o ajuste do angulo de tiro. 

Introduza no programa as seguintes instru 
ções que permitem ir de 1 até 90°. 

10 LET G = 9.81 

40 PRINT "QUAL E 0 ÂNGULO DE TIRO?" 

45 INPUT A 
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47 PRINT ”A=";A 
70 LET TI * 2*C/G 
80 FOR T = 0 TO TI STEP .5 
230 GOTO 50 

Ufa, ufa, o programa funciona e bem.’! I 

Vamos transforma~lo em um jogo e para tan 
to mudaremos a velocidade inicial para V = 1000 e 
iremos supor que temos 32000 m para percorrer na 
direção horizontal adotando para cada 1000 m uma 
posição horizontal na tela. 


150 FOR T ■ 0 TO TI STEP .5 
160 LET X = Cl * T / 1631 
170 LET Y = T * (C - G*T/2)/1631 
180 PLOT X, Y 
190 NEXT T 

Precisamos também introduzir algumas ins¬ 
truções que permitam ao TK-85 detectar a destrui¬ 
ção ou nao do alvo. 

Para tanto acrescente no programa acima 
as seguintes linhas: 


Embora se tenha 64 pqsiçÕes ou seja 64 pi 
xeis na tela do vídeo ligado ao TK-85, o alvo e um 
"T" e ocupará duas posições e voce poderá acertar 
a esquerda ou a direita dele, de maneira que o nu¬ 
mero efetivo de posiçoes horizontais e reduzido a 
metade. 


200 IF INT (X/2) = INT (K/1000) THEN GOTO 300 
250 GOTO 50 

300 PRINT AT 21 ,INT(K/1000) - 6; 

310 PAUSE 200 

340 GOTO 30 .. . » " ainda nao temos esta linha viu? 


0 novo programa torna-se agora: 

10 LET G = 9.81 
20 LET V = 1000 

40 LET K = INT (20000 * RND) + 12000 
50 CLS 

53 PRINT "AMPLITUDE = 32000 METROS" 

60 PRINT AT 21, INT (K/1000); "T" 

70 PRINT AT 1,0; "QUAL É 0 ÍNGULO DE TIRO?" 

80 INPUT A 

90 IF A <1 OR A > 90 THEN GOTO 90 

95 PRINT "A="; A 

120 LET C = V * SIN(A/57.3) 

130 LET Cl = V * COS(A/57.3) 

140 LET TI « 2 * C/G 


Vejamos agora como se deve proceder para 
introduzir a parte do programa que permite indi¬ 
car o quanto o seu tiro esta afastado do alvo á es 
querda ou a direita e como se pode permitir uma 
nova tentativa. 

Introduza para isto as seguintes linhas: 

210 LET E = INT(K - (32000 * SIN(.035 * A))) 

220 IF E <100 THEN PRINT AT 0,0; "DEPOIS DO ALVOÜ"; 

ABS E; "□METROS" 

230 IF E >100 THEN PRINT AT 0,0;" ANTES DO ALVOÜ"; 

ABS E; "OMETR0S" 

240 PAUSE 200 
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Vamos agora introduzir a parte do progra 
ma que permite controlar a munição pois essa tam¬ 
bém tem limites e nesse jogo voce pode dar no maxi 
mo 6 tiros sobre cada alvo. 

Caso voce nao acerte o alvo em 6 tiros vo 

cê perde. 

Vamos também aumentar o número de alvos 

para 4. 

Representamos por L o numero de tiros por 
alvo» por Ll o numero total de tiros e por Z o nu¬ 
mero total de alvos. 

Introduza então nesse ponto as seguintes 
instruções: 


5 LET Z = 0 


7 LET Ll = 0 

30 LET L = 0 — -—— Lembra que você queria 

55 XF L - 6 THEN GOTO 260 

na parte que detectava 

100 LET Ll = Ll + 1 a destruição do alvo 

110 LET L = L + 1 

260 PRINT AT 0,0; "0 INIMIGO VENCEUODOQOOO" 

270 GOTO 370 -ainda não i 

„ , essa linha 

320 LET Z = Z + 1 - 

330 IF Z - 4 THEN GOTO 350 


ainda não temos 7®!® 
essa linha WUy 


Finalmente você pode querer recomeçar o 
jogo após saber o que aconteceu no anterior. 

Para isto acrescente as seguintes ins¬ 


truções . 
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350 PRINT AT 0,0; Ll; "OTIR0S FORAM DADOS□□QCD " 

353 IF Ll<9 THEN PRINT "BELA POITCARIAOOOOOQOOOOOOO " 

354 IF Ll < 9 THEN GOTO 360 

357 IF Ll <15 THEN PRINT "CUMPRIU A TAREFA DE FORMA 
REGULAR" 

'358 IF Ll <15 THEN GOTO 360 

359 PRINT "VOCÊ PODE TER PONTARIA MELHOR" 

360 PRINT "VOCÊ QUER JOGAR NOVAMENTE (S/N)?" 

370 INPUT A$ 

380 IF A$ ="S" THEN RUN 
390 STOP 

0.1. 1 - Na Micro Sistemas N9 26 (novembro - 1983) 
aparece o artigo "0 alvo atrás da montanha" de Ru- 
dolfo Horner Junior. 

Ele já esta quase pronto para o TK-2000. 

Para o TK-85 as mudanças que devem ser 
featas sao muitas. 

0 interessante e que a ideia é a mesma do 
programa "PROJÉTIL" pois existe ura alvo fixo atrás 
da montanha que deverá ser atingido por tiros de 
canhao disparados pelo usuário. 

0.1. 2 - Ao se,digitar um programa novo pela pri¬ 
meira vez deve-se tomar cuidado para deixar posi¬ 
ções vazias entre o endereço de uma linha e o da 

linha seguinte. 

Aliás assim tomamos uma atitude bem pru¬ 
dente em vista da conhecida lei de Murphy; "Se al¬ 
go tem a possibilidade de dar errado, certamente 
dará errado". 

Ao se rodar um programa e fatal descobrir 
, cuja eliminação exige a introdução de novas 


erros 




14 6 


linhas. 

Um bom programador, e voce caro(a) leitor 
(a) merecera logo este título, se envergonha de nu 
meração "estranha" ou sem lei de formaçao. 

Para eliminar a numeraçao devida aos "re- 
men4 os " e muito útil o programa "RENUMERANDO" que 
aparece como programa do mès da Microhobby N9 1 - 
(maio - 1983). 

Microhobby ê a revista dos usuários do TK. 

0.I. 3 — No Micro Mundo de agosto de 1983 (N9 6' 
Sérgio Batista na secção TK-Mundo apresenta escla¬ 
recimentos muito úteis sobre as Artes Graficas no 
seu TK-85. 

ê muito útil ler este artigo!!! 


28. COEFICIENTE DE CORRELAÇÃO 
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Com o programa "COEFICIENTE DE CORRELA¬ 
ÇÃO" sem dúvida vamos obter o próprio entre duas 
variáveis X e Y. 

E Óbvio que supõe-se existir uma razoável 
relação linear entre as mesmas, 

Voce estimado(a) leitor(a) deve entrar com 
os valores aos pares, era primeiro lugar a variá¬ 
vel que voce chamou de X e em segundo lugar a que 
chamou de Y. 


10 PRINT "CÁLCULO DO COEFICIENTE DE CORRELAÇÃO DE PEARSON" 
15 PRINT 

20 FOR K = 1 TO 8 
30 PRINT " SQQB 
40 NEXT K 

50 PRINT "ENTRE COM 0 NÜMERO DE PONTOS:"; 

60 INPUT N 
70 PRINT N 
75 LET J - 0 
80 LET K - 0 
90 LET L * 0 
100 LET M « 0 
110 LET P - 0 


1A 8 
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120 PRINT "ENTRE AGORA COM AS COORDENADAS DOS PONTOS 
DADOS" 

130 FOR I = 1 TO N 
140 INPUT X 
150 INPUT Y 

160 PRINT "X,Y DO PONTO O"; I; " □ (";X;",";Y;")" 

180 REM NESTA PARTE DO PROGRAMA VAMOS ACUMULAR OS VALORES 
DADOS 

190 LET J = J + X 
200 LET K = K + Y 
210 LET L = L + X * X 
220 LET M = M + Y * Y 
230 LET P = P + X * Y 
240 NEXT I 

250 LET R = (N*P - J*K)/SQR(CN*L - J*J) * (N*M - K*K)) 

260 PRINT 

270 PRINT "O COEFICIENTE DE CORRELAÇÃO E=";R 

280 FOR I ■ 1 TO 32 

290 PRINT 

300 NEXT I 

310 STOP 

O.I.l - No nosso livro "Probabilidades e Estatísti 
ca para Engenharia" vol.2 no §8.7 esta uma descri¬ 
ção detalhada sobre o coeficiente de correlação a- 
raostral cuja formula ê 


r 



onde: 


xy 


xx 


yy 


I x . y . 

* t 

i = l 


? 2 
4 X . 

i = l x 


7 2 

. Z y i 

i = l 


n n 

Zx. Zy. 
♦ 1.1 
i=l i=l 


( 2 x.) 
i = l 


( 2 yj) 
i = l 


Portanto 



Aplique o seu programa para a Tabela 11 


Escola de samba 

Juiz 1 
(X) 

Juiz 2 
(Y) 

1 

420 

550 

2 

450 

600 

3 

410 

520 

4 

360 

400 

5 

320 

410 

6 

440 

425 

7 

400 

475 


Tabela 11 


na qual estão as pontuações que dois juizes deram 
a 7 diferentes escolas de samba. 

_ Voce obteve para o coeficiente de correia 

çao o valor 0.68383284? Ótimo!!!! 





29. AJUSTE DA RETA PELO M.M.Q. 



Neste programa ajusta-se a um conjunto de 
dados (x, y ) uma expressão algébrica do 19 grau co- 
mumente chamada de linha reta 'usando para isto o 
método dos mínimos quadrados (M.M.Q.) 

Calculam-se os coeficientes da equação da 
reta e faz-se uma resumida análise de regressão 
calculando-se o coeficiente de determinação (cuja 
raiz quadrada é o coeficiente de correlação)o er 
ro padrao da estimativa e imprime-se uma tabela 
comparativa entre os valores observados e os pre¬ 
vistos. 

Uma vez que a equação foi obtida pode-se 
"prever" qualquer valor de y para um dado x. 

Cuidado porém com extrapolações muito fo¬ 
ra do campo do experimento pois o seu valor prãti 
co é muito duvidoso.’ ? I l ? 

13 FOR K = 1 TO 4 

15 PRINT "**RETA**"; 

17 NEXT K 

18 PRINT 

19 PRINT "REGRESSÃO LINEAR" 

20 PRINT 
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30 PRINT "ENTRE COM O NÚMERO DE PONTOS" 

40 XNPUT N 
50 PRINT "N=";N 
60 DIM X(N) 

70 DIM Y(N) 

80 LET J = 0 
90 LET K * 0 
100 LET L « 0 

110 LET M = 0 

120 LET P = 0 
130 FOR I = 1 TO N 
140 INPUT X(I) 

150 INPUT Y(I) 

160 LET J » J + X(I) 

170 LET K = K + Y (I ) 

180 LET L = L + X(I) * X(I) 

190 LET M = M + Y(I) * Y(I) 

200 LET P = P + X(I) * Y(I) 

210 NEXT I 

220 LET B “ (N * P - K * J)/(N*L - J*J) 

230 LET A = (K - B * J)/N 

240 PRINT 
250 FOR I = 1 TO 4 
260 PRINT "*GOSTOU*"; 

265 NEXT I 
270 PRINT 

280 PRINT "Al VAI A EQUAÇÃO DA RETA. " 

290 PRINT "Y="; A; B; "* X" 

300 PRINT 

302 PRINT "Al VAI UM RESUMO DE ANÁLISE DE REGRESSÃO" 
310 LET J = B*(P - J*K/N) 

320 LET M = M - K*K/N 
330 LET K = M - J 
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340 PRINT 

350 LET R2 = J/M 

360 PRINT "COEFICIENTE DE DETERMINAÇÃO O EOOQ R**2=";R2 
370 PRINT 

380 PRINT "0 ERRO PADRÃO DA ESTIMATIVAOeOCD SY=";SQR(K/ 
(N—2)) 

388 PRINT 
390 PRINT 
392 PRINT 

404 PRINT "COMPARAÇÃO ENTRE VALORES OBSERVADOS E PREVISTOS" 
410 PRINT "X"; TAB 8 ; "Y OBS";TAB 20 ; "Y PREVISTO" 

420 FOR I = 1 TO N 

430 PRINT X(I); TAB 8; Y(I); TAB 20; A + B * X(I) 

440 NEXT I 
450 PRINT 

460 PRINT "VOCÊ QUER ALGUMA PREVISÃO FORA DOS PONTOS 
DADOS (S/N)?" 

470 INPUT R$ 

480 IF R$ <> "S" THEN GOTO 600 
490 INPUT X 

500 PRINT "X="; X; "O"; "Y ESTIM="; A + B * X 

510 GOTO 450 

600 FOR L = 1 TO 8 

610 PRINT " CHJtMJ"; 

620 NEXT L 
630 STOP 

0.1. - Aplique o programa para o seguinte problema do livro 
de "Probabilidades e Estatística para Engenharia" - vol. 2. 

É justo se esperar que os custos de manu¬ 
tenção de um certo tipo de máquina aumentem com a 
idade da mesma. 

Além disto, devido ã inflação, 
mao de obra e peças aumentará. 


o custo de 
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Para se estudar o efeito da idade no cus¬ 
to de manutenção, ura grupo de 12 maquinas da fa¬ 
brica foi sorteado e os resultados estão na Tabe¬ 
la 12 . 



Idade da 
máquina (anos) 
X 


Custo de manu- 



2 3 3 3,5 



tenção do ulti 2 2 2Q 22 n 23 25 u 27 25 2? 26 29 
mo ano (1000 
u.m.) Y 


Tabela 12 

Obtenha a equação de regressão (y = a+bx), 

. . . 2 
o coeficiente de determinação (r ), o erro padrao 

da estimativa 

, ís - bS 

°V —^ XX 

e o custo de manutenção para uma máquina de 8 anos 
de idade. 

As respostas são: 



y = 19.293706 + 1.3216783 
r 2 = 0.75926202 


s y - 1.4071496 


x = 8 


y _. =29.867133 
7 estim 


0,1. - Na Micro Sistemas NÇ 20 (maio de 1983) apa¬ 
rece o artigo "Aplicaçao de Estatística no micro¬ 
computador" de autoria de Francisco Boratto. 

E aplicado no programa apresentado,o método 
dos mínimos quadrados (M.M.Q.) e obtem-se para um 
conjunto de dados a estimativa do intercepto e da 
inclinação de uma reta do M.O. assim como os res¬ 
pectivos desvios padrões. 

Sai também calculado o coeficiente de corre 

lação. 


30. REGRESSÃO 
EXPONENCIAL 







Nas aulas praticas da microcotjtputadorês de 
muitas Escolas voce já pode observar experiências 
e fenomenos científicos. 


Desta forma, voce coloca os dados, o tipo 
de ajuste que deseja e obtem imediatamente na tela 
do aparelho de T.V. conectado ao seu TK-85 a res¬ 
posta desejada. 

Ê assim na Faculdade de Engenharia da Fun 
daçao Armando Ãlvares Penteado!III 

Os alunos aprendem as disciplinas através 
de um método mais ativo e isto sempre com a orien¬ 
tação e auxilio constante dos professores, 

0 programa "REGRESSÃO EXPONENCIAL" da os 
coeficientes para uma curva exponencial. 

A equação aparece na forma mais usual 



onde £ e b^ sao os coeficientes calculados. 

Os coeficientes da equaçao, o coeficiente 
de determinação e o erro padrao da estimativa 
também calculados. 


sao 
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10 PRINT "REGRESSÃO EXPONENCIAL" 

330 PRINT "EXP*"; 

20 FOR K * 1 TO 8 

340 NEXT C 

30 PRINT "EXP*"; 

350 PRINT "UMA RESUMIDA ANÁLISE DE REGRESSÃO" 

40 NEXT K 

360 PRINT 

50 PRINT 

370 LET J « B * (P-J* K/N) 

60 PRINT "ENTRE COM 0 NÜMERO DE PONTOS" 

380 LET M = M - K ** 2/n 

70 INPUT N 

390 LET K = M - J 

80 PRINT "N=";N 

400 LET R2 = J/M 

90 DIM X(N) 

410 PRINT "0 COEFICIENTE DE DETERMINAÇÃO Ê R**2=0"; R2 

100 DIM Y(N) 

420 PRINT 

110 LET J = 0 

430 PRINT "0 ERRO PADRÃO DA ESTIMATIVA fi SY=0”; 

120 LET K = 0 

SQR(K/(N-2)) 

130 LET L = 0 

435 FOR I = 1 TO 4 

140 LET M = 0 

440 PRINT 

150 LET P = 0 

445 NEXT I 

160 FOR I = 1 TO N 

450 PRINT "COMPARAÇAO ENTRE VALORES OBSERVADOS E PREVISTOS 

170 INPUT X(I) 

455 PRINT "X"; TAB 8; "Y"; TAB 20; »Y ESTIM" 

180 INPUT Y(I) 

460 FOR I = 1 TO N 

190 LET Y = LN Yd) 

470 PRINT Xd); TAB 8; Yd); TAB 20; EXP A * EXP (B*X (I) ) 

200 LET J * J + X(I) 

480 NEXT I 

210 LET K = K + Y 

490 PRINT 

220 LET L = L + X(I) * X(l) 

500 PRINT "VOCÊ QUER ALGUMA PREVISÃO FORA DOS PONTOS DADOS 

230 LET M = M + Y * Y 

(S/N)?" 

240 LET P = P + X(I) * Y 

510 INPUT R$ 

250 NEXT I 

520 IF R$ < >"s" THEN GOTO 600 

260 LET B ■ (N*P - K*J) / (N*L - J*J) 

530 INPUT X 

270 LET A = (K - B*J) / N 

540 PRINT "X="; X; "O"; «y ESTIM^O"; EXP A * EXP(B*X) 

275 PRINT "Al VÃO OS PARÂMETROS "A" E "B" " 

550 GOTO 490 

280 PRINT 

600 FOR L = 1 TO 32 

290 PRINT "A=0"; EXP A 

610 PRINT "®"; 

300 PRINT "B=0"; B 

620 NEXT L 

310 PRINT 

630 STOP 

320 FOR C « 1 TO 8 
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0.1.1- Que tal testar o programa "REGRESSÃO EXPO¬ 
NENCIAL" para o seguinte problema. 


X 

10 

12 

15 

17* 

20 

22 

25 

27 

30 32 

35 

y 

0,95 

_ 

1,05 

1,25 

1,41 

1,73 

2,00 

2,53 

2,98 

3,85 4,59 

6,02 


Tabela 13 


Voce obtem a expressão 

y = 0.41486768e 0,074165037x 
no seu TK-85? 

õtimo::: 

0 coeficiente de determinação deve dar 
0,99284016 e o erro padrão da estimativa e 
0.05507336. 

0.1. 2 - Na Micro Sistemas N9 25 (outubro - 1983) 
saiu o programa "Ajuste ps dados e faça previsões" 
de autoria de Armando Oscar 1 Cavanfia Filho e Maria 
Beatriz de Campos Cavanha. 

~ 0 programa esta pronto para o seu TK-85 e 

preve seis opçoes para ajustar curvas ã pontos da¬ 
dos ou seja 

a) Linear 

b) Exponencial 

c) Logarítmica 

d) Potência 

e) Hiperbólica 

f) Parabólica (29 grau) 

indicando inclusive o coeficiente de determinação 
para cada caso, com o^que é imediata a melhor esco 
lha entre as seis opçoes propostas. ' 



Com o programa "REGRESSÃO GEOMÊ TRICA" ajus 


ta-se pelo M.M.Q. uma curva geontÓtrica ou seja do 
tipo y = ax b a um conjunto de dados numéricos en 
tre as variáveis X (variável independente) e Y (va 
riãvel dependente). 

Alem disso calcula-se também o coeficien¬ 
te de determinação, o erro padrão da estimativa,po 
de-se obter a comparação entre a previsão e a ob¬ 
servação para qualquer ponto dado assim como obter 
extrapolações. 

Bem aí vai o programa: 

5 CLS 

10 PRINT "REGRESSÃO GEOMÉTRICA" 

20 PRINT 

30 PRINT "ENTRE COM 0 NÚMERO DE PONTOS" 

40 INPUT N 
50 PRINT "N=";N 
55 DIM X(N) 

57 DIM Y(N) 

60 LET J = 0 
70 LET K = 0 
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80 LET L - 0 
90 LET M « 0 
100 LET P = 0 
110 FOR I = 1 TO N 
120 INPUT X(I) 

130 INPUT Y(I) 

140 LET Y * LN Y(I) 

150 LET X = LN X(I) 

160 LET J = J + X 

170 LET K - K + Y 

180 LET L = L + X * X 

185 LET M = M + Y * Y 

190 LET P = P + X * Y 

200 NEXT I 

210 LET B = (N*P - K*J)/(N*L - J*J) 

220 LET A = (K - B * J)/N 
230 PRINT 

240 FOR C = 1 TO 32 
250 PRINT 
260 NEXT C 

270 PRINT "Y=0"; EXP A; "*X** M ; B 
280 FOR D - 1 TO 32 
290 PRINT 
300 NEXT D 

310 PRINT "UMA .RESUMIDA ANÁLISE DA-REGRESSÃO" 
320 PRINT 

330 LET J = B*(P - J*K/N) 

340 LET M = M - K*K/N 
350 LET K = M - J 
360 LET R2 = J/M 
370 FOR E = 1 TO 32 
380 PRINT 
390 NEXT E 


400 PRINT "0 COEFICIENTE DE DETERMINAÇÃO É R**2=0”; R2 
410 PRINT 

420 PRINT "0 ERRO PADRÃO DA ESTIMATIVA E SY= □";SQR(K/(N-2)) 
430 PRINT "COMPARAÇÃO ENTRE VALORES OBSERVADOS' E PREVISTOS" 
435 PRINT "X"; TAB 8; "Y"; TAB 20; "Y ESTIM" 

440 FOR I = 1 TO N 

445 PRINT X(I); TAB 8; Y(I); TAB 20; EXP(A) * X(I) ** B 
450 NEXT I 
455 PRINT 

460 PRINT "VOCÊ QUER ALGUMA PREVISÃO FORA DOS PONTOS DADOS 
(S/N)?" 

470 INPUT R$ 

480 IF R$ < >"S" THEN GOTO 600 
490 INPUT X 

500 PRINT "X="; X; "DOO"; "Y ESTIM=Q"; EXP(A)*X**B 

510 GOTO 455 

600 FOR E = 1 TO 32 

610 PRINT "O"; 

620 NEXT E 
630 STOP 

0*1. “ Aplique o programa "REGRESSÃO GEOMÉTRICA" 
para os dados da Tabela 


X 

5,8 

6,3 

6,5 

6,8 

7,6 

8,0 

8,0 

8,5 

8,7 

8,6 

9,0 

'9,1 

y 

48,8 

58,2 

- J 

59,9 

62,7 

72,3 

82,1 

82,5 

93,5 

99,1 

100 

114,6 

115,2 


esta e a nossa 
"clássica" vir 
gula decimal 


T abeia 14 


Na Tabela 14 x e o numero de empregados em 
industrias de manufatura (em milhões) e y e a pro¬ 
dução em milhões de u.m* 
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Note que este e mais um exercício do Cap 
tulo 8 do nosso livro "Probabilidades e Estatísti¬ 
ca para a Engenharia" - vol. 2. 

Consulte a pagina 119 e veras!II 


trtl 



No programa "REGRESSÃO POLINOMIAL" vamos 
obter os coeficientes de uma expressão (equaçao) 
algébrica de ordem N usando o M.M.Q. 

A equaçao é colocada na forma 


y = c + a^x + 3í2 x 


+ a x 
n 


sendo y a variável dependente, c o termo constante 

e independente e a,, a~,...,a os coeficientes 
s 1 z n 

constantes dás potências l,2,...,n da variável in 
dependente x* 

Obtém-se também nesse programa o coefici- 
ente de determinação (r ) , o erro padrao da estima 
tiva (Sy) compara-se os valores observados com os 
previstos assim como permite-se obter previsões e 
extrapolações para valores de x distintos daque¬ 
les que aparecera na tabela de dados original. 


10 PRINT "REGRESSÃO POLINOMIAL DE ORDEM N" 
20 FOR K = 1 TO 6 
30 PRINT "POLI*"; 

40 NEXT K 
45 PRINT 
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50 PRINT "ENTRE COM O GRAU DA EQUAÇÃO:"; 

60 INPUT G 
65 PRINT G 

70 PRINT "ENTRE COM O NÚMERO DE PONTOS:"; 

80 INPUT N 
85 PRINT N 
87 PRINT 

90 LET D = 2*G + 1 
100 LET E = G + 1 
110 LET F = G + 2 
120 DIM A(D) 

130 DIM R(.E,F) 

140 DIM T(F) 

145 DIM X(N) 

148 DIM Y(N) 

150 LET A(l) = N 
152 FOR K * 1 TO F 
154 LET T(K) * 0 
156 NEXT K 
158 FOR J - 2 TO D 
160 LET A(J) = 0 
162 NEXT J 

165 PRINT "OBTENÇÃO DA MATRIZ DO SISTEMA NORMAL 
170 FOR I = 1 TO N 
180 INPUT X(I) 

190 INPUT Y(I) 

210 FOR J = 2 TO D 

220 LET A(J) = A(_J) + X(I) ** (J-l) 

230 NEXT J 

240 FOR K = 1 TO E 

250 LET R(K,F) = T(K) + Y(I) * X(I) ** (K-l) 

260 LET T(K) = T(K) + Y(I) * X(I) ** (K-l) 

270 NEXT K 


280 LET T(F) = T(F) + Y(I) * Y(I) 

290 NEXT I 

300 PRINT "AGORA O SEU TK-85 VAI RESOLVER O SISTEMA 
LINEAR - SEJA PACIENTE" 

302 FOR K = 1 TO 32 

305 PRINT 

307 NEXT K 

310 FOR J * 1 TO E 

320 FOR K = 1 TO E 

330 LET R(J,K) = A(J+K-1) 

340 NEXT K 
350 NEXT J 
360 FOR J = 1 TO E 
370 LET K = J 

380 IF R(K,J) <> 0 THEN GOTO 430 

390 LET K = K+l 

400 IF K < = E THEN GOTO 380 

410 PRINT "NÃO EXISTE UMA SOLUÇÃO ÚNICA" 

420 GOTO 1000 
430 FOR I = 1 TO F 
440 LET Q = R(J,I) 

450 LET R(J,I) = R(K,I) 

460 LET R(K,I) = Q 
470 NEXT I 

480 LET Z = 1 / R(J,J) 

490 FOR I = 1 TO F 

500 LET R(J,I) = Z*R (J»I) 

510 NEXT r 

520 FOR K = 1 TO E 

530 IF K = J THEN GOTO 580 

540 LET Z = -R(K,J) 

550 FOR I = 1 TO F 

560 LET R(K»I) = R(K,I) + Z*R(J,I) 
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57Et NEXT I 
580 NEXT K 
590 NEXT J 
600 PRINT 

610 PRINT "0 TERMO INDEPENDENTE É: R(1,F) 

620 FOR J = 1 TO G 

630 PRINT "COEFICIENTE DE GRAU O"; J; "QÊ IGUAL A O"; 

R(J+1, F) 

640 NEXT J 
650 PRINT 

660 PRINT "UMA ANÁLISE DE REGRESSÃO RESUMIDA" 

665 PRINT 

670 LET P = 0 

680 FOR J = 2 TO E 

690 LET P - P+RtJ,F) * (T(J) - A(J) * TCD/N) 

700 NEXT J 

710 LET W = T(F) - T(l) * T(.l)/N 

720 LET Z = W - P 

730 LET L = N - G - 1 

735 PRINT 

740 LET R2 = P/W 

750 PRINT "0 COEFICIENTE DE DETERMINAÇÃO S R2="; R2 
760 PRINT "0 ERRO PADRÃO DA ESTIMATIVA £ SY="; SQR(Z/L) 
770 PRINT 

780 PRINT "COMPARAÇÃO ENTRE OS VALORES OBSERVADOS E OS 
PREVISTOS" 

790 PRINT "X"; TAB 8; "Y"; TAB 20; "Y ESTIM" 

795 FOR I * 1 TO N 
800 LET P = R(1,F) 

810 FOR J = 1 TO G 

820 LET P = P + R(J+1,F) * X(.I)**J 

830 NEXT J 

840 PRINT X(I); TAB 8; Y(I); TAB 20; P 


850 NEXT I 
860 PRINT 

870 PRINT "VOCÊ QUER ALGUMA PREVISÃO FORA DOS DADOS DO 
PROBLEMA (S/N)?" 

880 INPUT R$ 

890 IF R$ < > "S" THEN GOTO 1000 
900 LET P = R(1,F) 

910 INPUT X 

920 FOR J = 1 TO G 

930 LET P = P + R(J+1, F)*X**J 

940 NEXT J 

950 PRINT "X= M ; X; "O"; "Y ESTIM="; P 
960 GOTO 860 
1000 STOP 

0.1. Aplique o programa "REGRESSÃO POLINOMIAL" pa¬ 
ra obter para os dados da Tabela 15. 

. . 2 
um ajuste do tipo y = c + a^x + 

e depois y = c + a^x + a 2 x^ + a^x 3 
Qual e o melhor? 

Resp.: Caso voce consultar o nosso livro 
"Probabilidades e Estatística para Engenharia" no 
Capítulo 10 e mais precisamente nas paginas 255 e 
256 veras que o coeficiente de determinação da pa- 
rabola cúbica e maior que o da parãhola do 29 grau 
e entre os dois ajustes o que melhor explica o fe¬ 
nômeno e a parãbola cúbica. 

Voce concorda com isso? 
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0.1. Na Microhobby NÇ 5 (.1983) o programa do lei¬ 
tor é a "Regressão de Ordem N" de autoria de Enio 
Eduardo Kranen. 

0 programa permite a pesquisa do grau da 
equação que melhor se ajusta aos dados pois- dotou- 
se o programa da facilidade de novo processamento, 
com os mesmos pares de valores (x;y), sem a neces¬ 
sidade d,e reintroduzi-los, o que se torna extrema¬ 
mente vantajoso quando a quantidade de dados for 
grande. 



obtém-se os coeficientes de uma equação linear com 
várias variáveis usando o M.M.Q. 


A forma da equação é: 

y = c + a^x^ + a 2 x 2 + a-jX^ +...+ a^x^Cl) 

onde y e a variável dependente, ceo termo inde¬ 
pendente e a^,a 2 ,...,a sao os coeficientes das va 
riãveis independentes x^ , x 2 -»..«»x n . 

0 programa "REGRESSÃO LINEAR MÜLTIPLA"per 
mite obter os coeficientes c , a^ , a 2 ,...,a , o coe¬ 
ficiente de determinação múltipla (R^), oerro pa¬ 
drão da estimativa e caso se queira qualquer pre¬ 
visão,dados os valores das variáveis independentes. 

Aí vai o programa: 

10 PRINT "REGRESSÃO LINEAR MÜLTIPLA" 

15 PRINT 

20 FOR I * 1 TO 8 
30 PRINT "RLM*"; 

40 NEXT I 
45 PRINT 
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50 PRINT "ENTRE COM 0 NÜMERO DE PONTOS 

60 INPUT N 
70 PRINT N 

80 PRINT "ENTRE COM 0 NÜMERO DE VARIÁVEIS INDEPENDENTES O"; 

90 INPUT V 
100 PRINT V 
110 DIM X(N+l) 

120 DIM S(N+1) 

130 DIM T(N+l) 

140 DIM A(N+l y N+2) 

150 LET X(l) = 1 

152 FOR K = 1 *T0 V+l 

154 FOR L = 1 TO V+2 

156 LET A(K,L) * 0 

158 NEXT L 

160 NEXT K 

162 FOR I = 1 TO N 

165 PRINT "PONTOO"; I 

170 FOR J = 1 TO V 

180 PRINT J; "VARIÁVEL QOG " í 

185 INPUT X(J+1) 

187 PRINT X(J+1) 

190 NEXT J 

200 PRINT "VARIÁVEL DEPENDENTE Q"; 

210 INPUT X(V+2) 

220 PRINT X(V+2) 

230 PRINT 
240 PRINT 

250 PRINT "AGORA 0 SEU TK-85 FARÁ OS CÁLCULOS PARA OBTER 
OS ELEMENTOS DA MATRIZ QUE PERMITIRÃO AJUSTAR 0 
HIPERPLANO" 

260 PRINT 

270 FOR K » 1 TO V+l 


280 FOR L = 1 TO V+2 

290 LET A(K,L) = A(K,L) + X(K) * X(L) 

300 LET S(K) = A(K, V+2) 

310 NEXT L 
320 NEXT K 

330 LET S(V+2) * S(V+2) + X(V+2)**2 
340 NEXT I 
350 PRINT 

360 PRINT "TENHA UM POUCO DE CALMÁ, TÁ,*." 

370 PRINT "E AGORA QUE SERÁ RESOLVIDO 0 SISTEMA LINEAR 1 
375 PRINT 

380 FOR I = 2 TO V+l 
390 LET T(I) = A(1,I) 

400 NEXT I 

410 FOR I = 1 TO V+l 
420 LET J = I 

430 IF A(J,I) <> 0 THEN GOTO 480 

440 LET, J = J+l 

450 IF J < = V+l THEN GOTO 430 

460 PRINT "NÃO EXISTE SOLUÇÃO ÜNICA" 

470 GOTO 1000 

480 FOR K = 1 TO V+2 

490 LET B = A(I,K) 

500 LET A(I,K) = A(J,K) 

510 LET A(J,K) = B 

520 NEXT K 

530 LET Z = 1/A(I,I) 

540 FOR K = 1 TO V+2 
550 LET A(I,K) = Z*A(I,K) 

560 NEXT K 

570 FOR J * 1 TO V+l 

580 IF J *> I THEN GOTO 630 

590 LET Z = - A(J,I) 
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600 FOR K = 1 TO V+2 

610 LET A(J,K) = A(J,K) + Z*A(I,K) ‘ 

620 NEXT K 
630 NEXT J 
640 NEXT I 
650 PRINT 

660 FOR K = 1 TO 8 
670 PRINT "OBA*OBA*"; 

630 NEXT K 
690 PRINT 

700 PRINT "Al VÃO OS PARÂMETROS:" 

710 PRINT "TERMO INDEPENDENTE="; A(l, V+2) 

720 FOR I = 2 TO V+l 

730 PRINT "□ VARIÁVEL("; 1-1; ") = A(I, V+2) 

740 NEXT I 

750 LET P = 0 

760 FOR I = 2 TO V+l 

770 LET P = P+A(I,V+2)*(S(I)-T(I)*S(1)/N) 

780 NEXT I 

790 LET R = S(V+2) - S(1)*S(1)/N 

800 LET W = R - P 

810 LET D = N - V - 1 

820 PRINT 

830 LET R2 = P/R 

840 PRINT "O COEFICIENTE DE DETERMINAÇÃO É R2=0";R2 
845 PRINT 

850 PRINT "O ERRO PADRÃO DA ESTIMATIVA É SY =□"; 

SQR (ABS (W/D)) 

855 PRINT 

860 PRINT "VOCÊ QUER PREVER ALGUM VALOR (S/N)?" 

870 INPUT R$ 

880 IF R$ < >"S" THEN GOTO 1000 
890 LET P = A(l, V+2) 

895 FOR J = 1 TO V 
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900 PRINT J; "ÜVARIÃVELD"; 

910 INPUT X 
920 PRINT X 

930 LET P = P + A(J+1, V+2)*X 
935 PRINT 
940 NEXT J 

950 PRINT "OA PREVISÃO fis Y ESTIM=0"» INT(P*1000 +.5)/1000 
960 PRINT 
970 GOTO 855 
1000 STOP 

O.I. - Você não pensa que agora que teclou tanto vai 
escapar de uma aplicaçao? 

Hhum,. ainda bem. 

No nosso livro "Probabilidades e Estatisti 
ca para Engenharia" - vol. 2 na pSgina 204 temos o 
seguinte problema: 

"É analisado em um país hipotético, o pro¬ 
blema de prever o lucro líquido (y) em milhares de 
u.m. para supermercados localizados em area metropo 
litana. 

Os "regres sor es" independentes sao as ven¬ 
das totais (xj^) em dezenas de milhares de u.m. de 
produtos alimentícios e as vendas totais (X 2 ) em de 
zenas de milhares de u.m. 

Obtiveram-se num mesmo período os seguin¬ 


tes resultados: 
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Supermercado 

Vendas de 

produtos 

alimentícios 

Vendas de pro 
dutos não ali 
mentícios 
(x 2 ) 

Lucro liqui 
do 

Cy) 

1 

305 

35 

20 

2 

130 

98 

15 

3 

189 

83 

17 

4 

175 

76 

9 

5 

101 

93 

16 

6 

269 

77 

27 

7 

421 

44 

35 

8 

195 

57 

7 

9 

282 

31 

22 . 

_ 10 

203 

92 

23 


Tabela 16 


a) Obtenha a estimativa da equação do pia 
no de regressão. 

b) Qual e o erro padrão da estimativa? 

c) Qual ê o coeficiente de determinação 

múltipla? 

Dica - As respostas você vera na tela ou então no 
livro de "Probabilidades..." supra citado. 

d) Para o problema do supermercado (e tem 
algum supermercado com problema?) inclua um novo 
regressor ou seja uma variãvel adicional que ê 
a área em milhares de metros quadrados para o esta 
cionamento dos clientes (Tabela 17). 


Supermercado 

Sr ea 
<x 3 ) 

1 

35 

2 

22 

3 

27 

4 

16 

5 

28 

6 

46 

7 

56 

8 

12 

9 

40 

10 

32 


Tabela 17 


Responda as perguntas a), b) ec) incluin 
do também a variãvel X^. 

0 modelo ajustado e mais complicado mas o 
seu poder de explicação do "fenômeno" - lucro li¬ 
quido - é maior ou menor? 

Resposta - Bem maior, e da ordem de 98,5% , 



























Recentemente (3 a 10 de janeiro de 1984) 
tivemos a oportunidade de transmitir alguma coisa 
sobre a Linguagem BASIC e a grande necessidade do 
seu uso mais frequente no ensino da Engenharia a 
um grande grupo de professores da Faculdade de En¬ 
genharia da Fundaçao Armando Ãlvares Penteado. 

A finalidade do encontro tinha como meta 
"o melhor ensino so e possível juntando professo¬ 
res altamente qualificados e a mais avançada tecno 
logia”. 

Dentro da tecnologia de primeira linha en 
contra-se evidentemente o TK-85, o qual foi usado 
para se "passar" muitos programas. 

Entre os muitos professores altamente qua 
lificados estava o meu professor de Termodinâmica 
e Transmissão de Calor dos tempos ainda de Engenha 
ria Mackenzie, o ilustre mestre Antonio de Olivei¬ 
ra. 

Foi ele quem "bolou" e apresentou no cur¬ 
so este programa "SISTEMA LINEAR", tao importante 
para a sua disciplina e para outras que necessitam 
de resolução de sistemas lineares como por exemplo 
Eletromagnetismo, Estabilidade, etc. 
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Nao é um programa difícil porem a concei- 
tuaçao teórica do mesmo náo e tão simples. 

Foi por isso que pedimos ao prof.01 iveira 
que indicasse para nos um resumo do que se quer ob 
ter no programa e inclusive fazer um teste numéri¬ 
co . 

Aí vão as explicações e o programa pro¬ 
priamente dito» alem do meu. muito obrigado... 

Definição do -problema: 

Determinar a distribuição de temperaturas 
em um duto de secção quadrada dadas as temperatu¬ 
ras das faces internas e externas pelo método doe 
elementos finitos. 



. Campo de temperaturas 


T = fCx,y) 


Figura 12 


. Equação diferencial para o caso em foco 

(D 

Para aplicação do método numérico o 
ço deve ser discretizado e dada a geometria 
problema torna-se conveniente dividir a peça 
diante uma malha quadrada. 


espa¬ 

do 

me- 
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ximado 



Na fase seguinte devemos obter o valor apro 
da derivada segunda para o ponto genérico: 




So rnahdo (2) e C3) ter emo s: 
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2 2 

Valor aproximado para 3 T/3y 

Procedendo da mesma forma que o caso ante 
rior teremos: 



Substituindo (4) e (.5) em (1) teremos a 
equação de diferença finita para o ponto genérico 



Aplicando para o problema proposto e div 
dindo o espaço em 12 partes iguais teremos: 




3 4 5 


8 9 10 11 12 13 



Figura 16 

A equação (6) devera ser aplicada a cada 
ponto nodal obtendo-se um sistema de equações li¬ 
neares cuja solução nos dara as temperaturas pedi- 


Entretanto convêm notar: 

'. 0 sistema de equações pode ser resolvido com 

vantagem pelo método de Gauss— Seidel 

. 0 problema é simétrico 

Quanto a simetria para diminuir o esforço 
de programação somente serã considerada na direção 
x, e para acelerar a convergência o valor de cada 
ponto serã atualizado duas vezes em cada ciclo de 
calculo bem como serã aplicado um fator de acelera 
ção de convergência "over-relaxation" tal que: 
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0 programa para nas seguintes condições: 

1? quando atingida uma precisão prefixada. 

2? quando atingido o numero de laços de iteração 
prêf ixada. 

Para evitar repetições desnecessárias se¬ 
rão exibidos apenas as temperaturas entre a diago 
nal principal e o eixo Y - Y. 

0 tempo de execução para: 

A = 1.43 e 
precisão = 0.001 

ê de aproximadamente 3 minutos. 

10 PRINT "DUTO 13x13 R/l" 

20 DIM A(13,13) 

25 REM ENTRADA DE DADOS 
30 PRINT AT 10» 10; "T. EXTERNA" 

40 INPUT E 

50 PRINT AT 10»10; n T. INTERNA" 

60 INPUT W 

70 PRINT AT 10,10; "PRECISÃODD " 

80 INPUT R 

90 PRINT AT 10,10; "ACELERAÇÃO" 

100 INPUT A 
110 CLS 
120 FAST 

125 REM PREPARAR INTERFACES EXTERNAS 

130 FOR I - 1 TO 13 

140 LET A(1,I) = E 

150 LET A(.13,1) = E 

160 LET A(I,1) = E 

170 LET A(I,13) = E 


180 NEXT I 

185 REM PREPARAR INTERFACES INTERNAS 

190 FOR I = 5 TO 9 

200 LET A(5,1) = W 

210 LET A(9,1) = W 

220 LET A(I,5) = W 

230 LET A(1,9) * W 

240 NEXT I 

245 REM CÁLCULO 

250 FOR D = 1 TO 100 

260 LET K = 0 

270 FOR I = 2 TO 12 

280 FOR J = 2 TO 12 

290 IF I < 5 OR I > 9 OR J < 5 THEN GOTO 310 
300 IF J < = 9 THEN GOTO 360 

310 LET Z = A*((A(I-1,J) + A(.I+1,J) + A(I,J-1) 
+ A(I,J+l))/4 - A(I,J>) 

320 LET A(I,J) = A(I,J) + Z 
330 LET K = K + ABS Z 
340 LET L = 14 - I 
350 LET A(L,J) = A(I,J) 

360 NEXT J 
370 NEXT I 

380 IF K> = R THEN GOTO 410 
390 LET B = D 
400 GOTO 440 
410 NEXT D 

420 PRINT AT 10,10; "SEM CONVERGÊNCIA" 

425 SLOW 
430 STOP 

440 PRINT "ITERA=0";B 

441 FOR I = 1 TO 30 

442 PRINT CHR$ 128; 
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443 NEXT I 
445 PRINT 

450 PRINT TÁB 10;"RESPOSTAS" 

460 PRINT 
465 LET N = 1 
470 FOR I = 2 TO 4 
480 LET N = N + 1 
490 FOR J - N TO 7 

500 PRINT TAB 10; "T(" ;I;=O u ; A(I,J) 

510 NEXT J 
520 NEXT I 
530 GOTO 425 

0.1. Faça um teste para: 

temperatura externa E * 100°C 

temperatura interna W = 300°C 

precisão R = 0.0 01 

aceleração A = 1.43 

As respostas arredondadas para 2 decimais 
que voce deve obter sao: 



Tabela 18 
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